1#!perl 2 3use Test::More tests => 8; 4use Sub::Identify ':all'; 5 6ok( !defined sub_name( undef ) ); 7ok( !defined sub_name( "scalar" ) ); 8ok( !defined sub_name( \"scalar ref" ) ); 9ok( !defined sub_name( \@INC ) ); 10 11ok( !defined stash_name( undef ) ); 12ok( !defined stash_name( "scalar" ) ); 13ok( !defined stash_name( \"scalar ref" ) ); 14ok( !defined stash_name( \@INC ) ); 15