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/Win32/OLE/Lite.pm view on Meta::CPAN
my $self = shift;
my $autoload = substr $AUTOLOAD, rindex($AUTOLOAD, ':')+1;
_croak("Cannot autoload class method \"$autoload\"")
unless ref($self) && UNIVERSAL::isa($self, 'Win32::OLE');
my $success = $self->Dispatch($autoload, my $retval, @_);
unless (defined $success || ($^H & 0x200) != 0) {
# Retry default method if C<no strict 'subs';>
$self->Dispatch(undef, $retval, $autoload, @_);
}
return $retval;
}
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/autodie/Scope/Guard.pm view on Meta::CPAN
autodie::Scope::Guard - Wrapper class for calling subs at end of scope
=head1 SYNOPSIS
use autodie::Scope::Guard;
$^H{'my-key'} = autodie::Scope::Guard->new(sub {
print "Hallo world\n";
});
=head1 DESCRIPTION
view release on metacpan or search on metacpan
lib/bareword/filehandles.pm view on Meta::CPAN
# $VERSION
exists $bareword::filehandles::{VERSION} ? ${ $bareword::filehandles::{VERSION} } : (),
);
sub unimport { $^H |= 0x20000; $^H{__PACKAGE__.'/disabled'} = 1 }
sub import { delete $^H{__PACKAGE__.'/disabled'} }
view release on metacpan or search on metacpan
lib/clobber.pm view on Meta::CPAN
eval "require Term::ReadKey";
sub unimport { #no strict 'refs';
*{'CORE::GLOBAL::open'} = \&OPEN unless exists($^H{clobber});
*{'CORE::GLOBAL::sysopen'} = \&SYSOPEN unless exists($^H{clobber});
$^H{clobber} = $ENV{'clobber.pm'} || 0;
}
sub import {
$^H{clobber} = 1;
}
view release on metacpan or search on metacpan
lib/fixedtime.pm view on Meta::CPAN
sub import {
shift;
my %args = @_;
# we do not care about autoviv
$^H{fixedtime} = $args{epoch_offset} // CORE::time;
}
=head2 no fixedtime;
This will disable the pragma in the current lexical scope.
view release on metacpan or search on metacpan
lib/multidimensional.pm view on Meta::CPAN
# $VERSION
exists $multidimensional::{VERSION} ? ${ $multidimensional::{VERSION} } : (),
);
sub unimport { $^H |= 0x20000; $^H{__PACKAGE__.'/disabled'} = 1 }
sub import { delete $^H{__PACKAGE__.'/disabled'} }
view release on metacpan or search on metacpan
cpan/autodie/lib/autodie/Scope/Guard.pm view on Meta::CPAN
autodie::Scope::Guard - Wrapper class for calling subs at end of scope
=head1 SYNOPSIS
use autodie::Scope::Guard;
$^H{'my-key'} = autodie::Scope::Guard->new(sub {
print "Hallo world\n";
});
=head1 DESCRIPTION
view release on metacpan or search on metacpan
charnames.pm view on Meta::CPAN
## @off will hold the index into the code/name string of the start and
## end of the name as we find it.
## If :full, look for the name exactly
if ($^H{charnames_full} and $txt =~ /\t\t\Q$name\E$/m) {
@off = ($-[0], $+[0]);
}
## If we didn't get above, and :short allowed, look for the short name.
## The short name is like "greek:Sigma"
unless (@off) {
if ($^H{charnames_short} and $name =~ /^(.+?):(.+)/s) {
my ($script, $cname) = ($1, $2);
my $case = $cname =~ /[[:upper:]]/ ? "CAPITAL" : "SMALL";
if ($txt =~ m/\t\t\U$script\E (?:$case )?LETTER \U\Q$cname\E$/m) {
@off = ($-[0], $+[0]);
}
charnames.pm view on Meta::CPAN
push @args, $_;
}
@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/random.pm view on Meta::CPAN
sub import {
shift; #
my %args = @_<=1? ( "integer" => 1) : @_;
$^H{random} = $args{fixed} ? $args{fixed}
: $args{integer} ? -123456789
: undef;
return
}
view release on metacpan or search on metacpan
lib/re/engine/GNU.pm view on Meta::CPAN
$^H{regcomp} = ENGINE;
if (@_) {
my %args = @_;
if ( exists $args{'-debug'} ) {
$^H{ __PACKAGE__ . '/debug' } = $args{'-debug'};
}
if ( exists $args{'-syntax'} ) {
$^H{ __PACKAGE__ . '/syntax' } = $args{'-syntax'};
}
}
}
sub unimport {
my $class = shift;
if ( exists( $^H{regcomp} ) && $^H{regcomp} == ENGINE ) {
delete( $^H{regcomp} );
}
}
view release on metacpan or search on metacpan
}
}
$^H |= 0x020000;
$^H{+(__PACKAGE__)} = _tag(@sub{@callback});
$^H{regcomp} = $RE_ENGINE_PLUGIN;
return;
}
view release on metacpan or search on metacpan
lib/re/engine/RE2.pm view on Meta::CPAN
$^H{regcomp} = ENGINE;
if (@_) {
my %args = @_;
if (exists $args{"-max_mem"}) {
$^H{__PACKAGE__ . "::max-mem"} = $args{"-max_mem"};
}
if (exists $args{"-strict"}) {
$^H{__PACKAGE__ . "::strict"} = $args{"-strict"};
}
if (exists $args{"-longest_match"}) {
$^H{__PACKAGE__ . "::longest-match"} = $args{"-longest_match"};
}
if (exists $args{"-never_nl"}) {
$^H{__PACKAGE__ . "::never-nl"} = $args{"-never_nl"};
}
}
}
sub unimport
view release on metacpan or search on metacpan
print " # use strict, utf8, open, 5.010, ...\n";
printf " \$^H |= 0x%x;\n\n", $HINTS;
print " # use feature qw(@{[ keys %HINTS ]})\n";
for (keys %HINTS) {
print " \$^H{'$_'} = ".dumper( $HINTS{$_}).";\n";
}
print "\n";
}
elsif (/^UNIMPORT/) {
# TODO
view release on metacpan or search on metacpan
lib/warnings/lock.pm view on Meta::CPAN
if exists $^H{$hints_key};
};
sub import {
$^H |= 0x20000;
$^H{$hints_key} = ${^WARNING_BITS};
cast ${^WARNING_BITS} => $wiz;
}
sub unimport {
delete $^H{$hints_key};
view release on metacpan or search on metacpan
lib/winja.pm view on Meta::CPAN
my $load = sub {
my ($key) = @_;
$init->($key) if !$MGR->{$key};
die "Undefined flag of '$key'" if !exists $bitmask{$key};
return if ( $^H{ __PACKAGE__ . '' } ||= 0 ) & $bitmask{$key};
$^H{ __PACKAGE__ . '' } |= $bitmask{$key};
no strict 'refs';
no warnings 'redefine';
no warnings 'prototype';
my $coderef = *{$key}{CODE};
view release on metacpan or search on metacpan
lib/your.pm view on Meta::CPAN
if( $name =~ tr/A-Za-z_0-9://c ) {
if( $sym =~ /^\w+[\[{].*[\]}]$/ ) {
require Carp;
Carp::croak("Can't declare individual elements of a hash or array");
}
elsif ( $^H &= strict::bits('vars') ) {
require Carp;
Carp::croak("'$sym' is not a valid variable name under strict vars");
}
}
*$name =