view release on metacpan or search on metacpan
local/lib/perl5/strictures.pm view on Meta::CPAN
no warnings;
local $@;
if (defined $_[1] && eval { &UNIVERSAL::VERSION; 1}) {
$^H |= 0x20000
unless _PERL_LT_5_8_4;
$^H{strictures_enable} = int $_[1];
}
}
_CAN_GOTO_VERSION ? goto &UNIVERSAL::VERSION : &UNIVERSAL::VERSION;
}
view release on metacpan or search on metacpan
lib/Slovo/resources/public/js/editormd/lib/codemirror/modes.min.js view on Meta::CPAN
!function(e){"object"==typeof exports&&"object"==typeof module?e(require("../lib/codemirror")):"function"==typeof define&&define.amd?define(["../lib/codemirror"],e):e(CodeMirror)}(function(e){"use strict";e.modeInfo=[{name:"APL",mime:"text/apl",mode:...
e.match(/^\s*:/,!1)?["variable-2","variable-definition"]:["variable-2","variable"])},"&":function(){return["atom","atom"]}},name:"css",helperType:"less"})}),function(e){"object"==typeof exports&&"object"==typeof module?e(require("../../lib/codemirror...
multiLineStrings:!0,blockKeywords:t("catch class do else finally for forSome if match switch try while"),atoms:t("true false null"),indentStatements:!1,hooks:{"@":function(e){return e.eatWhile(/[\w\$_]/),"meta"},'"':function(e,t){return e.match('""')...
trailingSpace:t.trailingSpace,trailingSpaceNewLine:t.trailingSpaceNewLine,md_inside:t.md_inside}},token:function(e,t){if(t.formatting=!1,e.sol()){var r=!!t.header;if(t.header=0,e.match(/^\s*$/,!0)||r)return t.prevLineHasContent=!1,a(t),r?this.token(e...
return{startState:function(e){return{tokenize:n,baseIndent:e||0,stack:[]}},token:function(e,t){if(e.eatSpace())return null;s=null;var r=t.tokenize(e,t),n=t.stack[t.stack.length-1];return"hash"==s&&"rule"==n?r="atom":"variable"==r&&("rule"==n?r="numbe...
a="meta",(t.match(/^latex\s*$/)||r.tmp_stex)&&(r.tmp_stex=void 0,u(r,l,{mode:h,local:e.startState(h)}));break;case 2:u(r,i,c(L,3)),(t.match(/^python\s*$/)||r.tmp_py)&&(r.tmp_py=void 0,u(r,l,{mode:m,local:e.startState(m)}));break;default:u(r,n)}else i...
return S(r[n])?r[n]:!1}function C(e,t,r){for(var n=e.length-1;n>-1;n--)if(c(e[n][t],r))return n;return!1}function S(e){return e!==!1&&null!=e}var T=["-type","-spec","-export_type","-opaque"],M=["after","begin","catch","case","cond","end","fun","if","...
view release on metacpan or search on metacpan
}
sub spow;
{
BEGIN {
$^H |= 0x20000;
$^H{'Sub::Delete_test'} = bless [], ScopeHook;
delete_sub "spow";
}
}
BEGIN { is $ScopeHook::exited, 1, "delete_sub does not cause %^H to leak" }
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.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;
view release on metacpan or search on metacpan
lib/Tak/STDIONode.pm view on Meta::CPAN
no warnings;
local $@;
if (defined $_[1] && eval { &UNIVERSAL::VERSION; 1}) {
$^H |= 0x20000
unless _PERL_LT_5_8_4;
$^H{strictures_enable} = int $_[1];
}
}
_CAN_GOTO_VERSION ? goto &UNIVERSAL::VERSION : &UNIVERSAL::VERSION;
}
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.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;
view release on metacpan or search on metacpan
lib/Test/Mojo/WithRoles.pm view on Meta::CPAN
$^H{'Test::Mojo::WithRoles/enabled'} = j(\@roles);
}
sub unimport {
my ($class) = @_;
$^H{'Test::Mojo::WithRoles/enabled'} = '[]';
}
sub new {
my $class = shift;
my $hints = (caller(0))[10];
view release on metacpan or search on metacpan
lib/TestML1/Base.pm view on Meta::CPAN
package TestML1::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;
view release on metacpan or search on metacpan
SKIP: {
my $count = 1;
my ($stat, $out, $err) = capture_perl <<' CODE';
use Variable::Magic qw<wizard cast>; { BEGIN { $^H |= 0x020000; cast %^H, wizard free => sub { die q[cucumber] } } }
CODE
skip CAPTURE_PERL_FAILED($out) => $count unless defined $stat;
like $err, expect('cucumber', '-e', "\nExecution(?s:.*)"),
'die in free callback at compile time and not in eval string';
--$count;
view release on metacpan or search on metacpan
lib/Vroom/Mo.pm view on Meta::CPAN
package Vroom::Mo;
# use Mo qw'default import';
# The following line of code was produced from the previous line by
# Mo::Inline version 0.34
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...
view release on metacpan or search on metacpan
lib/YAML/Full/Base.pm view on Meta::CPAN
package YAML::Full::Base;
$YAML::Full::Base::VERSION = '0.0.1';
# use Mo qw'build default builder xxx import nonlazy';
# 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...
1;
view release on metacpan or search on metacpan
lib/YAML/Old/Mo.pm view on Meta::CPAN
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
lib/YAML/Mo.pm view on Meta::CPAN
package YAML::Mo;
# use Mo qw[builder default import];
# The following line of code was produced from the previous line by
# Mo::Inline version 0.4
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
pragmatic.pm view on Meta::CPAN
sub import($;) {
my $p = shift;
$^H |= 0x20000;
local *DESTROY = sub { };
$^H{$p} = bless [$p, 1, delete $^H{$p}];
$p->enable
}
sub unimport($;) {
my $p = shift;
$^H |= 0x20000;
local *DESTROY = sub { };
$^H{$p} = bless [$p, 0, delete $^H{$p}];
$p->disable
}
1
view release on metacpan or search on metacpan
lib/constant/lexical.pm view on Meta::CPAN
$^H |= 0x20000; # magic incantation to make %^H work before 5.10
shift;
return unless @ '_;
my @const = @_ == 1 && ref $_[0] eq 'HASH' ? keys %{$_[0]} : $_[0];
my $stashname = caller()."::"; my $stash = \%$stashname;
push @{hufh ? $hh{\%^H} ||= [] : ($^H{+__PACKAGE__} ||= bless[])},
map {
my $fqname = "$stashname$_"; my $ref;
if(exists $$stash{$_} && defined $$stash{$_}) {
$ref = ref $$stash{$_} eq 'SCALAR'
? $$stash{$_}
view release on metacpan or search on metacpan
lib/overload.pm view on Meta::CPAN
$_ [1] = "undef" unless defined $_ [1];
warnings::warn ("'$_[1]' is not a code reference");
}
}
else {
$^H{$_[0]} = $_[1];
$^H |= $constants{$_[0]};
}
shift, shift;
}
}
sub remove_constant {
# Arguments: what, sub
while (@_) {
delete $^H{$_[0]};
$^H &= ~ $constants{$_[0]};
shift, shift;
}
}
1;
view release on metacpan or search on metacpan
charnames.pm view on Meta::CPAN
@args == 0 && $promote and @args = (":full");
@h{@args} = (1) x @args;
$^H{charnames_full} = delete $h{':full'};
$^H{charnames_short} = delete $h{':short'};
$^H{charnames_scripts} = [map uc, keys %h];
##
## If utf8? warnings are enabled, and some scripts were given,
## see if at least we can find one letter of each script.
##
view release on metacpan or search on metacpan
lib/strictures.pm view on Meta::CPAN
no warnings;
local $@;
if (defined $_[1] && eval { &UNIVERSAL::VERSION; 1}) {
$^H |= 0x20000
unless _PERL_LT_5_8_4;
$^H{strictures_enable} = int $_[1];
}
}
_CAN_GOTO_VERSION ? goto &UNIVERSAL::VERSION : &UNIVERSAL::VERSION;
}
view release on metacpan or search on metacpan
lib/with.pm view on Meta::CPAN
sub import {
return unless defined $_[1] and ref $_[1];
my $caller = (caller 0)[0];
my $id = refaddr $_[1];
$hints{$^H{with} = $id} = $_[1];
filter_add sub {
my ($status, $lastline);
my ($data, $count) = ('', 0);
while ($status = filter_read) {
return $status if $status < 0;