|
BEGIN { use_ok "Sub::Mutate" , qw(sub_is_method mutate_sub_is_method) ; }
sub t0;
sub t1 :method;
sub t2 { }
sub t3 :method { }
ok !sub_is_method(\ &t0 );
SKIP: {
skip "pre-5.10 perl might not track methodness of undefined sub" , 1
unless "$]" >= 5.010;
ok sub_is_method(\ &t1 );
}
ok !sub_is_method(\ &t2 );
ok sub_is_method(\ &t3 );
ok !sub_is_method(\ &sub_is_method );
my @funcs = (\ &t0 , \ &t1 , \ &t2 , \ &t3 , \ &sub_is_method );
mutate_sub_is_method( $_ , 0) foreach @funcs ;
ok !sub_is_method( $_ ) foreach @funcs ;
mutate_sub_is_method( $_ , 1) foreach @funcs ;
ok sub_is_method( $_ ) foreach @funcs ;
1;
|