Next refresh should show more results. ( run in 1.440 )
view release on metacpan or search on metacpan
lib/evil.pm view on Meta::CPAN
} elsif ($disable_arg) {
delete $wants_strict{caller()};
delete $^H{$LAX};
delete $^H{$INTERMEDIATE};
} else { # $intermediate_arg or no arg
$^H{$INTERMEDIATE} = $^H{$LAX} = 1
}
}
1;
__END__
view release on metacpan or search on metacpan
lib/Acme/What.pm view on Meta::CPAN
{ what => { const => sub { $self->_parser(@_) } } }
);
*$export = set_subname($export => sub ($) { $self->_do(@_) });
}
$^H{(__PACKAGE__)} = $method =~ m{^\+(.+)$}
? $1
: sprintf("$caller\::$method");
}
sub unimport
view release on metacpan or search on metacpan
lib/Alias/Any.pm view on Meta::CPAN
sub unimport {
# Below 5.22, alias keyword is undefined by Keyword::Simple...
if ($^V < 5.022) {
Keyword::Simple::undefine('alias');
if ($Keyword::Simple::VERSION < 0.04) {
$^H{'Keyword::Simple/keywords'} =~ s{ alias:(?:\d+|-\d*)}{}g;
}
}
# Above 5.22, alias keyword is unkeyworded by Keyword::Declare...
use if $^V >= 5.022, 'Keyword::Declare';
view release on metacpan or search on metacpan
inc/Pegex/Base.pm view on Meta::CPAN
package 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.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::$_",&{...
our $DumpModule = 'YAML';
1;
view release on metacpan or search on metacpan
is $^H{"Module::Runtime/test_b"}, undef;
t::Hints->import;
is $^H{"Module::Runtime/test_a"}, 1;
is $^H{"Module::Runtime/test_b"}, 1;
eval q{
BEGIN { $^H |= 0x20000; $^H{foo} = 1; }
BEGIN { is $^H{foo}, 1; }
main::test_runtime_hint_hash("foo", 1);
BEGIN { require_module("Math::BigInt"); }
BEGIN { is $^H{foo}, 1; }
main::test_runtime_hint_hash("foo", 1);
view release on metacpan or search on metacpan
script/_genpass-id view on Meta::CPAN
#
### Mo.pm ###
#package Mo;
#$Mo::VERSION = '0.40';
#$VERSION='0.40';
#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::$_",&...
### Mo/Golf.pm ###
#
#use strict;
#use warnings;
#package Mo::Golf;
view release on metacpan or search on metacpan
images/mise-place.png matches view on Meta::CPAN
#}
#
#1;
### YAML/Old/Mo.pm ###
#package YAML::Old::Mo;
#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 $DumperModule = 'Data::Dumper';
#
#my ($_new_error, $_info, $_scalar_info);
#
view release on metacpan or search on metacpan
script/_chinese-zodiac-of view on Meta::CPAN
#=cut
### Mo.pm ###
#package Mo;
#$Mo::VERSION = '0.40';
#$VERSION='0.40';
#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::$_",&...
### Mo/Golf.pm ###
###
## name: Mo::Golf
## abstract: Module for Compacting Mo Modules
## author: Ingy döt Net <ingy@ingy.net>
view release on metacpan or search on metacpan
script/_finddo view on Meta::CPAN
#
### Mo.pm ###
#package Mo;
#$Mo::VERSION = '0.40';
#$VERSION='0.40';
#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::$_",&...
### Mo/Golf.pm ###
#
#use strict;
#use warnings;
#package Mo::Golf;
view release on metacpan or search on metacpan
share/endpoint/www/favicon.ico matches view on Meta::CPAN
### YAML/Old/Mo.pm ###
#package YAML::Old::Mo;
## use Mo qw[builder default import];
## The following line of code was produced from the previous line by
## Mo::Inline version 0.40
#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 $DumperModule = 'Data::Dumper';
#
#my ($_new_error, $_info, $_scalar_info);
#
view release on metacpan or search on metacpan
t/testdata/P522.pm view on Meta::CPAN
substr(my $a, 0, 0) = (foo(), bar());
$a++;
####
# This following line works around an unfixed bug that we are not trying to
# test for here:
# CONTEXT BEGIN { $^H{a} = "b"; delete $^H{a} } # make %^H localised
# hint hash
BEGIN { $^H{'foo'} = undef; }
{
BEGIN { $^H{'bar'} = undef; }
{
view release on metacpan or search on metacpan
corpus/dists/B-C.parsed view on Meta::CPAN
"style" => "",
"text" => "Bytecode is still broken on 5.18, esp non-threaded. 5.20 looks pretty good though."
},
{
"line" => 38,
"raw" => " * C: Fix -u<module> without file extension.\n\tWith hek do not drop FAKE, only for const pv.\n\tFixed \$\$ (\$PID) to be dynamic, issue 108. Thanks to flexvault for reporting this.\n Fixed double precision to 16 dig...
"style" => "*",
"text" => "C: Fix -u<module> without file extension. With hek do not drop FAKE, only for const pv. Fixed \$\$ (\$PID) to be dynamic, issue 108. Thanks to flexvault for reporting this. Fixed double precision to 16 digits. The nbody shootout ...
},
{
"line" => 101,
"raw" => " * perlcc (2.14): new option --dryrun, -v5 does not -Dsp,-v\n new option -f passthru to C and CC\n",
"style" => "*",
view release on metacpan or search on metacpan
lib/Class/Easy.pm view on Meta::CPAN
# use strict, use utf8;
$^H |= $Class::Easy::Import::H;
# use feature
$^H{feature_switch} = $^H{feature_say} = $^H{feature_state} = 1;
# probably check for try_to_use is enough
return
if defined *{"$callpkg\::try_to_use"}{CODE}
and sub_fullname (*{"$callpkg\::try_to_use"}{CODE}) eq __PACKAGE__.'::__ANON__';
view release on metacpan or search on metacpan
lib/Code/ART.pm view on Meta::CPAN
# # Remember lexically scoped options...
# for my $optname (keys %{$opt_ref}) {
# croak "Unknown option ('$optname') passed to 'use $package'"
# if !$VALID_REFACTOR_OPTION{$optname} && !$VALID_HOIST_OPTION{$optname};
# $^H{"Code::ART $optname"} = $opt_ref->{$optname};
# }
# Export the API...
no strict 'refs';
*{caller().'::refactor_to_sub'} = \&refactor_to_sub;
view release on metacpan or search on metacpan
inc/Pegex/Base.pm view on Meta::CPAN
package 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.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::$_",&{...
our $DumpModule = 'YAML';
1;
view release on metacpan or search on metacpan
inc/YAML/Mo.pm view on Meta::CPAN
#line 1
package YAML::Mo; $VERSION = '0.80';
# use Mo qw[builder default import];
# The following line of code was produced from the previous line by
# Mo::Inline version 0.27
no warnings;my$M=__PACKAGE__.::;*{$M.Object::new}=sub{bless{@_[1..$#_]},$_[0]};*{$M.import}=sub{import warnings;$^H|=1538;my($P,%e,%o)=caller.::;shift;eval"no Mo::$_",&{$M.$_.::e}($P,\%e,\%o,\@_)for@_;return if$e{M};%e=(extends,sub{eval"no $_[0]()";@...
our $DumperModule = 'Data::Dumper';
my ($_new_error, $_info, $_scalar_info);