forked from openkylin/libsub-quote-perl
33 lines
487 B
Perl
33 lines
487 B
Perl
|
use strict;
|
||
|
|
use warnings;
|
||
|
|
no warnings 'once';
|
||
|
|
use lib 't/lib';
|
||
|
|
|
||
|
|
use Test::More;
|
||
|
|
use List::Util;
|
||
|
|
BEGIN {
|
||
|
|
delete $Sub::Util::{'set_subname'};
|
||
|
|
delete $INC{'Sub/Util.pm'};
|
||
|
|
}
|
||
|
|
|
||
|
|
use InlineModule
|
||
|
|
'Sub::Name' => <<'END_SN',
|
||
|
|
package Sub::Name;
|
||
|
|
sub subname {
|
||
|
|
$::sub_named = $_[0];
|
||
|
|
return $_[1];
|
||
|
|
}
|
||
|
|
1;
|
||
|
|
END_SN
|
||
|
|
'Sub::Util' => undef,
|
||
|
|
;
|
||
|
|
|
||
|
|
use Sub::Defer;
|
||
|
|
|
||
|
|
ok Sub::Defer::_CAN_SUBNAME;
|
||
|
|
my $sub = sub { 'foo' };
|
||
|
|
is Sub::Defer::_subname('foo', $sub), $sub;
|
||
|
|
is $::sub_named, 'foo';
|
||
|
|
|
||
|
|
done_testing;
|