view release on metacpan or  search on metacpan

t/17-ctl.t  view on Meta::CPAN

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;
}