/ 
MooseX-WhatTheTrig-0.001
River stage zero No dependents
/ MooseX::WhatTheTrig

NAME

MooseX::WhatTheTrig - what attribute triggered me?

SYNOPSIS

use v5.14;

package Goose {
   use Moose;
   use MooseX::WhatTheTrig;
   
   has foo => (
      traits  => [ WhatTheTrig ],
      is      => 'rw',
      trigger => sub {
         my $self = shift;
         my $attr = Moose::Util::find_meta($self)->triggered_attribute;
         say "Triggered $attr";
      },
   );
}

my $obj = Goose->new(foo => 42);    # says "Triggered foo"
$obj->foo(999);                     # says "Triggered foo"

DESCRIPTION

Moose trigger subs get passed two (sometimes three) parameters:

  • The object itself.

  • The new attribute value.

  • The old attribute value (if any).

The sub doesn't get told which attribute triggered it. This may present a problem if you wish to have the same coderef triggered from several different attributes.

This module adds a $meta->triggered_attribute method to your class' metaobject, which allows you to check which attribute has been triggered.

Yes, it works if you trigger one attribute from another attribute.

Yes, it works in roles.

Yes, it works with inheritance.

BUGS

Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=MooseX-WhatTheTrig.

SEE ALSO

http://stackoverflow.com/questions/22306330/moose-trigger-caller.

AUTHOR

Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

This software is copyright (c) 2014 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.