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