The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

use strict;
sub register {
my ( $class, $plugin, $c, $method, $carrier, $code ) = @_;
if ($c->carrier_longname eq $carrier) {
$c->register_method( $method => $plugin );
}
}
1;
__END__
=head1 SYNOPSIS
sub foo : MobileMethod('DoCoMo') {
# your codes here
}