/usr/local/CPAN/Moxy/Moxy/Attribute/CarrierHook.pm

• package Moxy::Attribute::CarrierHook
  • register
• EOF

package Moxy::Attribute::CarrierHook;
use strict;
use warnings;
use base 'Class::Component::Attribute';

sub register {
    my($class, $plugin, $c, $method, $param, $code) = @_;

    $c->register_hook( "${method}_${param}", { plugin => $plugin, method => $method } );
}

1;