Next refresh should show more results. ( run in 1.146 )
view release on metacpan or search on metacpan
lib/Data/Show.pm view on Meta::CPAN
# Install Data::Show::Plugin base class as well...
$INC{'Data/Show/Plugin.pm'} = $INC{'Data/Show.pm'};
# Track lexical options...
$^H{'Data::Show/with'} = _load_plugin( $opt{with}, $file, $line,
$opt{warnings} ne 'off', $opt{fallback} );
$^H{'Data::Show/termwidth'} = $opt{termwidth};
$^H{'Data::Show/to'} = @OUTPUT_FH;
$^H{'Data::Show/style'} = @STYLE;
my $existing_as = $^H{'Data::Show/as'} // '(?!)';
$^H{'Data::Show/as'} = "$existing_as|$opt{as}";
push @OUTPUT_FH, $opt{to};
push @STYLE, { add_grid => $opt{grid},
mode => $opt{style},
map { m/(.+)style/ ? ($1 => $opt{$_}) : () } keys %opt
};
view all matches for this distribution
view release on metacpan or search on metacpan
script/tubergen view on Meta::CPAN
# __MOBUNDLE_FILE__
'Mo.pm' => <<'END_OF_FILE',
package Mo;
$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::$_",&{$...
END_OF_FILE
# __MOBUNDLE_FILE__
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Data/Util/PurePerl.pm view on Meta::CPAN
$max_ph++;
my($pkg, $file, $line, $hints, $bitmask) = (caller 0 )[0, 1, 2, 8, 9];
my $body = sprintf <<'END_CXT', $pkg, $line, $file;
BEGIN{ $^H = $hints; ${^WARNING_BITS} = $bitmask; }
package %s;
#line %s %s
END_CXT
if($is_method){
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Dios.pm view on Meta::CPAN
}
# Update the attribute setting code...
$^H{'Dios attrnames'} .= "$name,";
if ($sigil eq '$') {
$^H{'Dios attrs'} .= $] < 5.022 ? qq{alias my \$$name = \$_Dios__attr_${name}[\${\$_[0]}];}
: qq{ \\ my \$$name = \\ \$_Dios__attr_${name}[\${\$_[0]}];};
}
else {
$^H{'Dios attrs'}
.= $] < 5.022 ? qq{alias my $sigil$name = $sigil}.qq{{\$_Dios__attr_${name}[\${\$_[0]}]};}
: qq{ \\ my $sigil$name = \$_Dios__attr_${name}[\${\$_[0]}]; };
}
# Add type-checking code to alias...
if ($type) {
$^H{'Dios attrs'} .= qq{ Dios::Types::_set_var_type(q{$type}, \\$sigil$name, 'Value (%s) for $sigil$name attribute', $constraint ); };
}
# Return the converted syntax...
return qq{ $TYPE_VALIDATOR my \@_Dios__attr_$name : Field $access $delegators $init $TYPE_SETUP; $INIT_FUNC; };
}
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Export/Lexical.pm view on Meta::CPAN
my ( $class, @args ) = @_;
if ( @args ) {
# Leave the '1' on the front of the list from a previous 'use
# $module', as well as any subs previously imported.
$^H{$key} = join ',', $^H{$key}, map { "!$_" } @args; ## no critic (ProhibitPunctuationVars, RequireLocalizedPunctuationVars)
}
else {
$^H{$key} = ''; ## no critic (ProhibitPunctuationVars, RequireLocalizedPunctuationVars)
}
};
view all matches for this distribution
view release on metacpan or search on metacpan
lib/File/PlainPath.pm view on Meta::CPAN
}
push @export, $arg;
}
if (exists $opts{'separator'}) {
$^H{+__PACKAGE__} = $opts{'separator'};
}
@_ = ($class, @export);
goto \&Exporter::import;
}
view all matches for this distribution
view release on metacpan or search on metacpan
script/rsybak 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 all matches for this distribution
view release on metacpan or search on metacpan
IPC/Lite.pm view on Meta::CPAN
if ($sym =~ /^\w+[[{].*[]}]$/) {
require Carp;
Carp::croak("Can't declare individual elements of hash or array");
} elsif (warnings::enabled() and length($sym) == 1 and $sym !~ tr/a-zA-Z//) {
warnings::warn("No need to declare built-in vars");
} elsif (($^H &= strict::bits('vars'))) {
require Carp;
Carp::croak("'$_' is not a valid variable name under strict vars");
}
}
# don't put "main::" on every table entry, too ugly
view all matches for this distribution
view release on metacpan or search on metacpan
lib/JSPL/Controller.pm view on Meta::CPAN
my $frame = $] > 5.009 ? 1 : 2;
JSPL::Context->check_privileges;
my($package, $file, $line, $hints, $bitmask) = (caller $frame)[0,1,2,8,9];
# warn sprintf("SBB: $package,$file,$line,'$code', H: %x, BM: %s\n", $hints,$bitmask);
my $cr = eval join("\n",
qq|package $package;BEGIN {\$^H=$hints;\${^WARNING_BITS}="$bitmask";}|,
"#line $line $file",
"sub {$code}") or Carp::croak("Can't compile: $@");
return $cr;
}
view all matches for this distribution
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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Kavorka.pm view on Meta::CPAN
}
sub _exporter_validate_opts
{
my $class = shift;
$^H{'Kavorka/package'} = $_[0]{into};
$_[0]{replace} = 1 unless exists $_[0]{replace};
}
sub _fqname ($;$)
{
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Keyword/Declare.pm view on Meta::CPAN
warn $msg;
}
# Install the lexical type definition...
$$src_ref
= qq{BEGIN{\$^H{q{Keyword::Declare keytype:$keytype_info{newtype}=$keytype_info{oldtype}}} = 1;}}
. $sigil_decl
. $$src_ref;
};
# Install the 'keyword' (meta-)keyword...
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Lock/Socket.pm view on Meta::CPAN
#<<< Do not perltidy this
BEGIN {
# use Mo qw'builder default import is 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::$_",&{$M...
$INC{'Lock/Socket/Mo.pm'} = __FILE__;
}
1;
#>>>
view all matches for this distribution
view release on metacpan or search on metacpan
lib/Method/Lexical.pm view on Meta::CPAN
my $class = shift;
my $hints = my_hints;
my $subclass = "$METHOD_LEXICAL($class)";
my $class_data;
return unless (($^H & 0x20000) && ($class_data = $hints->{$subclass}));
my $caller = ccstash();
my @subs = @_ ? (map { scalar(fqname($_, $caller)) } @_) : keys(%$class_data);
my $installed = $hints->{$METHOD_LEXICAL};
my $new_installed = { %$installed }; # clone
view all matches for this distribution
view release on metacpan or search on metacpan
lib/MikroTik/Client/Mo.pm view on Meta::CPAN
package MikroTik::Client::Mo;
# use Mo qw'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::$_",&{...
1;
=encoding utf8
=head1 NAME
view all matches for this distribution
view release on metacpan or search on metacpan
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::$_",&{...
view all matches for this distribution
view release on metacpan or search on metacpan
bin/_check-module-version 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 all matches for this distribution
view release on metacpan or search on metacpan
lib/Object/Pad.pm view on Meta::CPAN
if( $opt =~ m/^(only_class_attrs|only_field_attrs)=(.*)$/ ) {
# Store an entire sub-hash inside the hints hash. This won't
# survive squashing into a COP for runtime but we only need it
# during compile so that's OK
my ( $name, $attrs ) = ( $1, $2 );
$^H{"Object::Pad/configure($name)"} = { map { $_ => 1 } split m/,/, $attrs };
}
else {
$^H{"Object::Pad/configure($opt)"}++
}
}
view all matches for this distribution
view release on metacpan or search on metacpan
t/scan1.pdf view on Meta::CPAN
®¿Ý_÷ßn½úôI¾ºÿ·û¥úßþCÿT;«Ò¾>º§þúï¿×úÞ¼_ú_õ[/z¯t¯ÿµJÒß®¯ë].¿üþ«ZÿÂÿõ×ëÇ¿Ù#¥¶fÿ÷ÿÿÿï©b*Úúÿ¯¼/×÷ÿÝ}þéôüÿÿÿé?¼ÏרýÿÿÚÿÛùý-*Òÿ?Ý~ÿÿü/Ö¿zþÿÿýãü7ÿÿ·ÿþ>¿ýþ?îhÿýÿ^¼±¿ûÿ×ÿ^ÿúõåöDGéõÞ¿úþþé{×þG·ø_u×ÿÿÿÿܧÿÿÿà¿×ÿ¯ÿÿ×÷ÿÿüußßýW...
Ú÷ÿÿúÿõúÿ¯ïÿýªÿÿÿÿããø×~ÿ¯4ê?úú¾ËêY×ÿïÿ&ï÷ÿëï¿ÿé/ÿKÿÿÿtÿÿÿ¯\½×ÿßÿªýuÿ]zÿoþºú_ëõm%ÿ¿ÿ'ÿþ¿«ÿí&ùeûÓÿëú&ÿúåÉòÆ~ëýÿäÿ}®ÿ¬VioÿñÅZ^ßÿúßß×úi~COþÿÿê½k¯öúÿûkëýÿ»ÿÿêÇ??ôMÿà¿ïßärù"ÿ׫-ëÿZëúNßë¥ÿ¶¾ß÷û¯ï¥z¥ÿñZö¾¿kk¤Ç¯úÇ=vºúÛ
i´»Ûïºî...
ÃÔT0»
á¯Þ÷¢@´[_û_þþ×þþª×ûÖDZ^Å1×Q\CiõÓ"B¦Ó д]=tõ´Ó¿×ÕýVÂÚö!ªÙ
ý¯ìøa²8°DDDDD0XaB-AØ´×.i§*¦
& 7[O$ÔDFRGÄDDDDDF!
P`jWXÔ¯£ô¼DqHi®þ´-/ÒÚ²7¶JEô»õåTT_Ui§iúávª"#ÿÿÿÿÿiƲÝ,¤¢ÌIÙTv+! 9Kæy6WÕJÅꩪè"gbñ,i1³)#ÑKK³S+LÈ\ÉòILÓ&QgyS³l¾ªIoü&×5ßkvÚÙPTô$ÖÚa;]NÍ;ÿ®ÿ¢-´ÿüÖõüìÕ©'-U%%z Ôío×Uðþþ/ÉNHÿõ륧¤º>...
Q DÏ#Qyfq9êD!Ö0t|$^H#7Zdåjè2×1ø´åçADáŦ¤¨½?IÅ¡ ãñýM44¡0Âiü&ê©¡ªjjô¹oXaB
0¡50ÖÓ4ð:Á;TÁ¬0RTÂ
0ðÕ=, ð4Â!è\OÕ§ôàÁiâÑÞ%ÂnòvûÑ+~èëê+馩®ªúz~üZéÐ\&iæ=iõC ¦
ü_ôýSM4Â~^)0MuC_ò...
zké´?Ò%tOÚùȹ¹`¤\h?Dû®óDû'K'ÏD¹Èù ý:¥'Ôm
(U_§¦ê¿ziÿJ¯õßÕ^´¾µun¯"bu«k¯Oý?Ó¯Óï÷é;kôõôÚIz
Õ¯]$@¡:ZO®µþ}h'Iºméþêà´´'§]|']¯ëëÿýVÂô·ëÛaýt©zõ×_ë×]?«ëµý?]zOõ]júúO¥Õ}=W &©Òëúúun´×K§_ºý.W®´©--'®?®þÿÇøoßÿ_ûÿ÷ïÿé]}XëþºMýú¿0ï÷¯§K´¶WXÒz].´¿ÿëúú¯KÚ§Wýÿ«zzÒ뤿ÿÝ|_çQ|ö¿ò"×|_ÿ&2EÇ×ýÿíû?ÿý?ÿëÿÿ¯¤5ÒT×Õ{I}}®é*Cö?M}uû÷I/û¨¤...
=ßÚÚöýÚ¨®)R¿T¸X¦)}~ý¦*¶*6)cø¯âºØئ)â®õ°ýíhDD4Ó©ðÈ°¦E´U°O»°5TÐi.ÖÈ¿amxk¯ßiC Ú¥uÒJØUÐiÿjöM4Óá¯Úý¦L&BGzâ"U±i¡a8"#!$0Â&!(1
4UL&¦CA
M0 au];XdWì&ª·ö½
ÓTÓM0zaWAªj, Âa²,Zâ""8#Ð...
Cü/×úOAµyÌ=+õ ßÒ'ï;54ýutÚZ]?ùZ"\þ}ÿû{ÿÿ¦ÍZeX 30ôÈùä`4õ$Õ«¯ÇJÒÒÒ¥fÄ4âÿs5 àÑÁéàá×Z^ë¯õ]»Aú/Ù Ï_Mú òPë®´âÿÛöúëÿüKvɸ"I¸MúõH¿d
Ü#8Ò-µÑ<aQï»TµKKþõ3FÐé7[þq$Â_¯ôm×þØKõÿþ¯Ný=cûè&ëÛKzÒ~v¦)+ZÒýÚý_ÓøÓé/ÿ¦ÿÒa¯...
-BnEåì·Gs
®;.®µ^W)þWO®¶©Øv!¦x(#Q¹gz2æS Ð6/&dY}<·5fIO;Y¿Ó]aª®«!~j¿ßõþ"ÛSº?ÿýBa4ý\?ÿµõ&µ@É~¯VI×UJhjN ¡$×ÿÇÆ´DÈø²ÃCè´JÚ%z¡A6£ÿÿT©××}/ô Ýi:ü¬¼ B¥±3´F²D\9h5A*.
§1ÌÅË!(2RÈÃ%âRñO}iiZ¥¥Ó×û...
view all matches for this distribution
view release on metacpan or search on metacpan
t/scan1.pdf view on Meta::CPAN
®¿Ý_÷ßn½úôI¾ºÿ·û¥úßþCÿT;«Ò¾>º§þúï¿×úÞ¼_ú_õ[/z¯t¯ÿµJÒß®¯ë].¿üþ«ZÿÂÿõ×ëÇ¿Ù#¥¶fÿ÷ÿÿÿï©b*Úúÿ¯¼/×÷ÿÝ}þéôüÿÿÿé?¼ÏרýÿÿÚÿÛùý-*Òÿ?Ý~ÿÿü/Ö¿zþÿÿýãü7ÿÿ·ÿþ>¿ýþ?îhÿýÿ^¼±¿ûÿ×ÿ^ÿúõåöDGéõÞ¿úþþé{×þG·ø_u×ÿÿÿÿܧÿÿÿà¿×ÿ¯ÿÿ×÷ÿÿüußßýW...
Ú÷ÿÿúÿõúÿ¯ïÿýªÿÿÿÿããø×~ÿ¯4ê?úú¾ËêY×ÿïÿ&ï÷ÿëï¿ÿé/ÿKÿÿÿtÿÿÿ¯\½×ÿßÿªýuÿ]zÿoþºú_ëõm%ÿ¿ÿ'ÿþ¿«ÿí&ùeûÓÿëú&ÿúåÉòÆ~ëýÿäÿ}®ÿ¬VioÿñÅZ^ßÿúßß×úi~COþÿÿê½k¯öúÿûkëýÿ»ÿÿêÇ??ôMÿà¿ïßärù"ÿ׫-ëÿZëúNßë¥ÿ¶¾ß÷û¯ï¥z¥ÿñZö¾¿kk¤Ç¯úÇ=vºúÛ
i´»Ûïºî...
ÃÔT0»
á¯Þ÷¢@´[_û_þþ×þþª×ûÖDZ^Å1×Q\CiõÓ"B¦Ó д]=tõ´Ó¿×ÕýVÂÚö!ªÙ
ý¯ìøa²8°DDDDD0XaB-AØ´×.i§*¦
& 7[O$ÔDFRGÄDDDDDF!
P`jWXÔ¯£ô¼DqHi®þ´-/ÒÚ²7¶JEô»õåTT_Ui§iúávª"#ÿÿÿÿÿiƲÝ,¤¢ÌIÙTv+! 9Kæy6WÕJÅꩪè"gbñ,i1³)#ÑKK³S+LÈ\ÉòILÓ&QgyS³l¾ªIoü&×5ßkvÚÙPTô$ÖÚa;]NÍ;ÿ®ÿ¢-´ÿüÖõüìÕ©'-U%%z Ôío×Uðþþ/ÉNHÿõ륧¤º>...
Q DÏ#Qyfq9êD!Ö0t|$^H#7Zdåjè2×1ø´åçADáŦ¤¨½?IÅ¡ ãñýM44¡0Âiü&ê©¡ªjjô¹oXaB
0¡50ÖÓ4ð:Á;TÁ¬0RTÂ
0ðÕ=, ð4Â!è\OÕ§ôàÁiâÑÞ%ÂnòvûÑ+~èëê+馩®ªúz~üZéÐ\&iæ=iõC ¦
ü_ôýSM4Â~^)0MuC_ò...
zké´?Ò%tOÚùȹ¹`¤\h?Dû®óDû'K'ÏD¹Èù ý:¥'Ôm
(U_§¦ê¿ziÿJ¯õßÕ^´¾µun¯"bu«k¯Oý?Ó¯Óï÷é;kôõôÚIz
Õ¯]$@¡:ZO®µþ}h'Iºméþêà´´'§]|']¯ëëÿýVÂô·ëÛaýt©zõ×_ë×]?«ëµý?]zOõ]júúO¥Õ}=W &©Òëúúun´×K§_ºý.W®´©--'®?®þÿÇøoßÿ_ûÿ÷ïÿé]}XëþºMýú¿0ï÷¯§K´¶WXÒz].´¿ÿëúú¯KÚ§Wýÿ«zzÒ뤿ÿÝ|_çQ|ö¿ò"×|_ÿ&2EÇ×ýÿíû?ÿý?ÿëÿÿ¯¤5ÒT×Õ{I}}®é*Cö?M}uû÷I/û¨¤...
=ßÚÚöýÚ¨®)R¿T¸X¦)}~ý¦*¶*6)cø¯âºØئ)â®õ°ýíhDD4Ó©ðÈ°¦E´U°O»°5TÐi.ÖÈ¿amxk¯ßiC Ú¥uÒJØUÐiÿjöM4Óá¯Úý¦L&BGzâ"U±i¡a8"#!$0Â&!(1
4UL&¦CA
M0 au];XdWì&ª·ö½
ÓTÓM0zaWAªj, Âa²,Zâ""8#Ð...
Cü/×úOAµyÌ=+õ ßÒ'ï;54ýutÚZ]?ùZ"\þ}ÿû{ÿÿ¦ÍZeX 30ôÈùä`4õ$Õ«¯ÇJÒÒÒ¥fÄ4âÿs5 àÑÁéàá×Z^ë¯õ]»Aú/Ù Ï_Mú òPë®´âÿÛöúëÿüKvɸ"I¸MúõH¿d
Ü#8Ò-µÑ<aQï»TµKKþõ3FÐé7[þq$Â_¯ôm×þØKõÿþ¯Ný=cûè&ëÛKzÒ~v¦)+ZÒýÚý_ÓøÓé/ÿ¦ÿÒa¯...
-BnEåì·Gs
®;.®µ^W)þWO®¶©Øv!¦x(#Q¹gz2æS Ð6/&dY}<·5fIO;Y¿Ó]aª®«!~j¿ßõþ"ÛSº?ÿýBa4ý\?ÿµõ&µ@É~¯VI×UJhjN ¡$×ÿÇÆ´DÈø²ÃCè´JÚ%z¡A6£ÿÿT©××}/ô Ýi:ü¬¼ B¥±3´F²D\9h5A*.
§1ÌÅË!(2RÈÃ%âRñO}iiZ¥¥Ó×û...
view all matches for this distribution