Perl-PrereqScanner-NotQuiteLite

 view release on metacpan or  search on metacpan

t/scan/sub.t  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
use strict;
use FindBin;
use lib "$FindBin::Bin/../../";
 
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( @_ ) ]->[!$[] }
 
 
    '.' => \&scan,
    nomethod => \&explode,

 view all matches for this distribution
 view release on metacpan -  search on metacpan

( run in 0.981 second using v1.00-cache-2.02-grep-82fe00e-cpan-2ea8abbae53 )