#!/usr/bin/perl -w
# The method keyword should be evaluated at BEGIN time
package Foo;
use Test::More 'no_plan';
use Method::Signatures;
is( Foo->bar(42), 42 );
is( Foo->foo(42), 42 );
sub bar {
my($self, $arg) = @_;
return $arg;
}
method foo($arg) {
return $arg;
}