\$\^H.*=.*{ results from the CPAN

Data-Show

view release on metacpan or search on metacpan


    # 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

Data-Tubes

1 match

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

Data-Util

1 match

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){

lib/Data/Util/PurePerl.pm view on Meta::CPAN

			$code = sub{ $ar_code->($next, @_) };
		}
		my($pkg, $file, $line, $hints, $bitmask) = (caller 0)[0, 1, 2, 8, 9];

		my $context = sprintf <<'END_CXT', $pkg, $line, $file;
BEGIN{ $^H = $hints; ${^WARNING_BITS} = $bitmask; }
package %s;
#line %s %s(modify_subroutine)
END_CXT

		my $modified = eval $context . q{sub{

view all matches for this distribution

Devel-REPL

1 match

view release on metacpan or search on metacpan

lib/Devel/REPL/Plugin/LexEnv.pm view on Meta::CPAN

  my $lp = $self->lexical_environment;
  # Collate my declarations for all LP context vars then add '';
  # so an empty statement doesn't return anything (with a no warnings
  # to prevent "Useless use ..." warning)
  return join('',
    'BEGIN { if ( $_REPL->_has_hints ) { ( $^H, %^H ) = @{ $_REPL->_hints } } }',
    ( map { "my $_;\n" } keys %{$lp->get_context('_')} ),
    qq{{ no warnings 'void'; ''; }\n},
    $line,
    '; BEGIN { $_REPL->_hints([ $^H, %^H ]) }',
  );

view all matches for this distribution

Dios

1 match

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

Export-Lexical

1 match

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

File-PlainPath

1 match

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

File-RsyBak

1 match

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;

script/rsybak 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 all matches for this distribution

Game-Collisions

2 results

view release on metacpan or search on metacpan

nytprof/strict-pm-4-line.html view on Meta::CPAN

#    once (14Âµs+0s) by strict::import at <a href="strict-pm-4-line.html#62">line 62</a></div></div>sub bits {</td></tr>
<tr><td class="h"><a name="41"></a>41</td><td class="c0">9</td><td class="c3"><span title="Avg 567ns">5Âµs</span></td><td></td><td></td><td class="s">    my $bits = 0;</td></tr>
<tr><td class="h"><a name="42"></a>42</td><td class="c0">9</td><td class="c3"><span title="Avg 500ns">4Âµs</span></td><td></td><td></td><td class="s">    my @wrong;</td></tr>
<tr><td class="h"><a name="43"></a>43</td><td class="c0">9</td><td class="c3"><span title="Avg 1Âµs">10Âµs</span></td><td></td><td></td><td class="s">    foreach my $s (@_) {</td></tr>
<tr><td class="h"><a name="44"></a>44</td><td class="c0">10</td><td class="c1"><span title="Avg 2Âµs">17Âµs</span></td><td></td><td></td><td class="s">        if (exists $bitmask{$s}) {</td></tr>
<tr><td class="h"><a name="45"></a>45</td><td class="c0">10</td><td class="c1"><span title="Avg 2Âµs">19Âµs</span></td><td></td><td></td><td class="s">            $^H |= $explicit_bitmask{$s};</td></tr>
<tr><td class="h"><a name="46"></a>46</td><td></td><td></td><td></td><td></td><td class="s"></td></tr>
<tr><td class="h"><a name="47"></a>47</td><td class="c0">10</td><td class="c3"><span title="Avg 630ns">6Âµs</span></td><td></td><td></td><td class="s">            $bits |= $bitmask{$s};</td></tr>
<tr><td class="h"><a name="48"></a>48</td><td></td><td></td><td></td><td></td><td class="s">        }</td></tr>
<tr><td class="h"><a name="49"></a>49</td><td></td><td></td><td></td><td></td><td class="s">        else {</td></tr>
<tr><td class="h"><a name="50"></a>50</td><td></td><td></td><td></td><td></td><td class="s">            push @wrong, $s;</td></tr>

view all matches for this distribution

IPC-Lite

1 match

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

JSPL

1 match

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

JSYNC

2 results

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

Kavorka

1 match

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

Keyword-Declare

1 match

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...

lib/Keyword/Declare.pm view on Meta::CPAN

        }

        # How to remove the Keyword::Simple keyword (with workaround for earlier versions)...
        my $keyword_defn = q{Keyword::Simple::undefine( 'KEYWORD' );};
        if ($Keyword::Simple::VERSION < 0.04) {
            $keyword_defn .= "\$^H{'Keyword::Simple/keywords'} =~ s{ KEYWORD:-?\\d*}{}g;" ;
        }

        # How to remove the Keyword::Declare keywords...
        $keyword_defn .= q{
            delete @^H{ grep m{^ Keyword::Declare \s+ active:KEYWORD:}xms, keys %^H };

view all matches for this distribution

Kwim-Plugin-badge

2 results

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 all matches for this distribution

Lock-Socket

1 match

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

Method-Lexical

1 match

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

MikroTik-Client

1 match

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

Mo

1 match

view release on metacpan or search on metacpan

lib/Mo.pm view on Meta::CPAN

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

Module-CheckVersion

1 match

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;

bin/_check-module-version view on Meta::CPAN

#
#1;
### YAML/Old/Mo.pm ###
#package YAML::Old::Mo;
#
#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);
#

view all matches for this distribution

Module-Runtime

3 results

view release on metacpan or search on metacpan

t/rm.t view on Meta::CPAN

    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 all matches for this distribution

Object-Pad

1 match

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

PDF-Burst

1 match

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»…á¯Þ÷¢@´[_û_þþ×þþ—ª×ûÖÇ±^Å1×Q\CiŠõÓ"B¦ˆˆÓ†š Ð´]=tõ†´Ó¿×ÕýVÂÚö!ªÙ
ý¯ìøaˆ²8°„DDDDD0Xˆa‹B-ˆ‹A„Ø´×.i§*¦ƒ
˜& ‘7[O†$ÔDF„RGÄDDDDDFƒ!‚
P`‡jWXÔ¯£ô¼DqHi®þ—´-/ÒÚ²7¶JEô»õåTT_Ui§iúá‚vª"#ÿÿÿÿÿ™iÆ²Ý,¤¢Ì’I‘ÙTv“+!  9KŠæy6WÕJÅê©ªè"gbñ,i‘1³)#ÑK•K³S+LÈ\ÉòILÓ&Q—gy–S³lˆ¾ªIoü&×5ßkvŸÚÙPTô$ÖÚa;]NÍ;ÿ®ÿ¢-´ÿüÖõüìÕ©'-„•U%%z Ôío×Uðƒþþ/ÉƒNHŽÿõë¥§¤º>...
Qœ ˆDÏ„‹‡›#Qyfq9’êD!ˆÖ0ˆ˜t|$^H#7Zždå“Šjè†2×1ø´‰åçA‚DáÅ¦š¤ƒ¨½?I—Å¡ ãñýM44¡0šÂi„ü&šê©¡ªjjô¹oXaB
0¡50š„ÖÓ4ðƒ:Á;TÁ‡¬0ˆRTÂ
0ƒ„ðÕ=, ðƒ4Â!è\OÕ§ôà’“ÁiâÑÞ’%Â‘nòvûÑ+~—èëê+é¦©®šªúz~ŸüZéÐ\&“iæ=iõC	¦…ü_ôýSM4Â~œ^œ„)0˜MuC_ò...
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»°ƒ5†ƒTÐi‘.ÖÈ¿amxk¯ßiC	Ú¥uÒJØUÐiÿjšö˜M4Óá¯Úý¦˜L&BGzâ"U±i¡ˆˆˆˆˆˆˆˆˆ‰a8ˆ"#!$0Â&š!(1š
4UL&¦š”CA…M0ƒ	au];XdWì&ª·ö½…ÓTÓM0šzaWAª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Ò-µÑ<a’‚Qï»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×UJšh”jN‡ ¡$×ÿÇÆ´DÈø²ÃCè•´JÚ%z¡A6£ÿÿT©××}/ô Ýi:ü¬¼ B¥±œ3´F²D\9h5’‘A*‰.…§1ÌœÅË!”(2RÈÃ%âžR’ñO}iiZ¥¥Ó×û...

view all matches for this distribution

PDF-GetImages

1 match

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»…á¯Þ÷¢@´[_û_þþ×þþ—ª×ûÖÇ±^Å1×Q\CiŠõÓ"B¦ˆˆÓ†š Ð´]=tõ†´Ó¿×ÕýVÂÚö!ªÙ
ý¯ìøaˆ²8°„DDDDD0Xˆa‹B-ˆ‹A„Ø´×.i§*¦ƒ
˜& ‘7[O†$ÔDF„RGÄDDDDDFƒ!‚
P`‡jWXÔ¯£ô¼DqHi®þ—´-/ÒÚ²7¶JEô»õåTT_Ui§iúá‚vª"#ÿÿÿÿÿ™iÆ²Ý,¤¢Ì’I‘ÙTv“+!  9KŠæy6WÕJÅê©ªè"gbñ,i‘1³)#ÑK•K³S+LÈ\ÉòILÓ&Q—gy–S³lˆ¾ªIoü&×5ßkvŸÚÙPTô$ÖÚa;]NÍ;ÿ®ÿ¢-´ÿüÖõüìÕ©'-„•U%%z Ôío×Uðƒþþ/ÉƒNHŽÿõë¥§¤º>...
Qœ ˆDÏ„‹‡›#Qyfq9’êD!ˆÖ0ˆ˜t|$^H#7Zždå“Šjè†2×1ø´‰åçA‚DáÅ¦š¤ƒ¨½?I—Å¡ ãñýM44¡0šÂi„ü&šê©¡ªjjô¹oXaB
0¡50š„ÖÓ4ðƒ:Á;TÁ‡¬0ˆRTÂ
0ƒ„ðÕ=, ðƒ4Â!è\OÕ§ôà’“ÁiâÑÞ’%Â‘nòvûÑ+~—èëê+é¦©®šªúz~ŸüZéÐ\&“iæ=iõC	¦…ü_ôýSM4Â~œ^œ„)0˜MuC_ò...
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»°ƒ5†ƒTÐi‘.ÖÈ¿amxk¯ßiC	Ú¥uÒJØUÐiÿjšö˜M4Óá¯Úý¦˜L&BGzâ"U±i¡ˆˆˆˆˆˆˆˆˆ‰a8ˆ"#!$0Â&š!(1š
4UL&¦š”CA…M0ƒ	au];XdWì&ª·ö½…ÓTÓM0šzaWAª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Ò-µÑ<a’‚Qï»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×UJšh”jN‡ ¡$×ÿÇÆ´DÈø²ÃCè•´JÚ%z¡A6£ÿÿT©××}/ô Ýi:ü¬¼ B¥±œ3´F²D\9h5’‘A*‰.…§1ÌœÅË!”(2RÈÃ%âžR’ñO}iiZ¥¥Ó×û...

view all matches for this distribution