The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
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;