1 2 3 4 5 6 7 8 9 10 11 12 13
package MooseX::Net::API::Test; use Moose::Exporter; Moose::Exporter->setup_import_methods( with_caller => [qw/test_api_method/] ); sub test_api_method { my $caller = shift; my $name = shift; my %options = @_; } 1;