|
Packit Service |
02c23a |
#!/usr/bin/perl
|
|
Packit |
1eea8f |
|
|
Packit |
1eea8f |
use Test::More tests => 12;
|
|
Packit |
1eea8f |
use Sub::Identify ':all';
|
|
Packit |
1eea8f |
|
|
Packit |
1eea8f |
ok( !defined sub_name( undef ) );
|
|
Packit |
1eea8f |
ok( !defined sub_name( "scalar" ) );
|
|
Packit |
1eea8f |
ok( !defined sub_name( \"scalar ref" ) );
|
|
Packit |
1eea8f |
ok( !defined sub_name( \@INC ) );
|
|
Packit |
1eea8f |
|
|
Packit |
1eea8f |
ok( !defined stash_name( undef ) );
|
|
Packit |
1eea8f |
ok( !defined stash_name( "scalar" ) );
|
|
Packit |
1eea8f |
ok( !defined stash_name( \"scalar ref" ) );
|
|
Packit |
1eea8f |
ok( !defined stash_name( \@INC ) );
|
|
Packit |
1eea8f |
|
|
Packit |
1eea8f |
ok( !defined get_code_location( undef ) );
|
|
Packit |
1eea8f |
ok( !defined get_code_location( "scalar" ) );
|
|
Packit |
1eea8f |
ok( !defined get_code_location( \"scalar ref" ) );
|
|
Packit |
1eea8f |
ok( !defined get_code_location( \@INC ) );
|