Perl-PrereqScanner-NotQuiteLite
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/scan/sub.t view on Meta::CPAN
view all matches for this distribution
123456789101112131415161718use
strict;
use
warnings;
use
FindBin;
use
t::scan::Util;
test(
<<'TEST'); # INGY/YAML-Full-0.0.1/lib/YAML/Full/Base.pm
no warnings;my$M=__PACKAGE__.'::';*{$M.Object::new}=sub{my$c=shift;my$s=bless{@_},$c;my%n=%{$c.::.':E'};map{$s->{$_}=$n{$_}->()if!exists$s->{$_}}keys%n;$s};*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.'::';shift;eval"no Mo::$_",&{$M...
TEST
test(<<
'TEST'
);
# TYEMQ/Acme-ESP-1.002007/ESP.pm
sub
O'o { [
shift
,oO(
@_
) ]->[!$[] }
package
Acme::ESP::Scanner;
use
overload(
'.'
=> \
&scan
,
nomethod
=> \
&explode
,
view release on metacpan - search on metacpan
( run in 0.981 second using v1.00-cache-2.02-grep-82fe00e-cpan-2ea8abbae53 )