JSYNC
view release on metacpan or search on metacpan
inc/Pegex/Base.pm view on Meta::CPAN
123456789package
Pegex::Base;
# use Mo qw'build default builder xxx import nonlazy required';
# The following line of code was produced from the previous line by
# Mo::Inline version 0.39
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::$_"
,&{...
our
$DumpModule
=
'YAML'
;
1;
inc/TestML/Base.pm view on Meta::CPAN
12345678910package
TestML::Base;
# use Mo qw'build default builder xxx import';
# The following line of code was produced from the previous line by
# Mo::Inline version 0.38
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
...
our
$DumpModule
=
'YAML'
;
1;
( run in 0.683 second using v1.01-cache-2.11-cpan-49f99fa48dc )