sub_name
};
imported_ok qw{
sub_name
};
sub named { 'named' }
*unnamed = sub { 'unnamed' };
like(sub_name(\&named), qr/named$/, "got sub name (named)");
like(sub_name(\&unnamed), qr/__ANON__$/, "got sub name (anon)");
like(
dies { sub_name() },
qr/sub_name requires a coderef as its only argument/,
"Need an arg"
);
like(
dies { sub_name('xxx') },
qr/sub_name requires a coderef as its only argument/,
"Need a ref"
);
like(
dies { sub_name({}) },
qr/sub_name requires a coderef as its only argument/,
"Need a code ref"
);
done_testing;