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

PDF-OCR

view release on metacpan or search on metacpan

®¿Ý_÷ß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-OCR2

1 match

view release on metacpan or search on metacpan

t/leodocs/file1.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

PLDelphi

2 results

view release on metacpan or search on metacpan

basiclib/overload.pm-txt view on Meta::CPAN

            warnings::warn ("`$_[1]' is not a code reference");
        }
    }
    else {
        $^H{$_[0]} = $_[1];
        $^H |= $constants{$_[0]} | $overload::hint_bits;
    }
    shift, shift;
  }
}

sub remove_constant {
  # Arguments: what, sub
  while (@_) {
    delete $^H{$_[0]};
    $^H &= ~ $constants{$_[0]};
    shift, shift;
  }
}

1;

view all matches for this distribution

PLJava

2 results

view release on metacpan or search on metacpan

basiclib/overload.pm-txt view on Meta::CPAN

            warnings::warn ("`$_[1]' is not a code reference");
        }
    }
    else {
        $^H{$_[0]} = $_[1];
        $^H |= $constants{$_[0]} | $overload::hint_bits;
    }
    shift, shift;
  }
}

sub remove_constant {
  # Arguments: what, sub
  while (@_) {
    delete $^H{$_[0]};
    $^H &= ~ $constants{$_[0]};
    shift, shift;
  }
}

1;

view all matches for this distribution

POSIX-Run-Capture

1 match

view release on metacpan or search on metacpan

out view on Meta::CPAN

21783 stat("/usr/share/perl5/overloading.pmc", 0x7ffffff2c920) = -1 ENOENT (No such file or directory)
21783 stat("/usr/share/perl5/overloading.pm", {st_mode=S_IFREG|0444, st_size=1808, ...}) = 0
21783 open("/usr/share/perl5/overloading.pm", O_RDONLY|O_CLOEXEC) = 5
21783 ioctl(5, TCGETS, 0x7ffffff2c6e0)  = -1 ENOTTY (Inappropriate ioctl for device)
21783 lseek(5, 0, SEEK_CUR)             = 0
21783 read(5, "package overloading;\nuse warnings;\n\nour $VERSION = '0.02';\n\nmy $HINT_NO_AMAGIC = 0x01000000; # see perl.h\n\nrequire 5.010001;\n\nsub _ops_to_nums {\n    require overload::numbers;\n\n    map { exists $overload::numbers::names{\"(...
21783 brk(0x2013000)                    = 0x2013000
21783 lseek(5, 963, SEEK_SET)           = 963
21783 lseek(5, 0, SEEK_CUR)             = 963
21783 close(5)                          = 0
21783 read(4, "ef; # allow caller to format reference arguments\n\nrequire Exporter;\nour @ISA       = ('Exporter');\nour @EXPORT    = qw(confess croak carp);\nour @EXPORT_OK = qw(cluck verbose longmess shortmess);\nour @EXPORT_FAIL = qw(verbose);   ...

out view on Meta::CPAN

21783 stat("/usr/share/perl5/vars.pmc", 0x7ffffff29e00) = -1 ENOENT (No such file or directory)
21783 stat("/usr/share/perl5/vars.pm", {st_mode=S_IFREG|0444, st_size=2458, ...}) = 0
21783 open("/usr/share/perl5/vars.pm", O_RDONLY|O_CLOEXEC) = 11
21783 ioctl(11, TCGETS, 0x7ffffff29bc0) = -1 ENOTTY (Inappropriate ioctl for device)
21783 lseek(11, 0, SEEK_CUR)            = 0
21783 read(11, "package vars;\n\nuse 5.006;\n\nour $VERSION = '1.05';\n\nuse warnings::register;\nuse strict qw(vars subs);\n\nsub import {\n    my $callpack = caller;\n    my (undef, @imports) = @_;\n    my ($sym, $ch);\n    foreach (@imports) {\n  ...
21783 brk(0x242a000)                    = 0x242a000
21783 brk(0x2425000)                    = 0x2425000
21783 brk(0x241f000)                    = 0x241f000
21783 lseek(11, 1147, SEEK_SET)         = 1147
21783 lseek(11, 0, SEEK_CUR)            = 1147

view all matches for this distribution

PPIx-DocumentName

1 match

view release on metacpan or search on metacpan

lib/PPIx/DocumentName.pm view on Meta::CPAN

      require Carp;
      Carp::carp("Because of the age of your Perl, -api $args{'-api'} " .
                 'will be package scoped instead of block scoped. ' .
                 'Please upgrade to 5.10 or better.');
    } else {
      $^H{'PPIx::DocumentName/api'} = $args{'-api'};  ## no critic (Variables::RequireLocalizedPunctuationVars)
    }
  }
}

sub _api {

view all matches for this distribution

Parse-Perl

1 match

view release on metacpan or search on metacpan

t/lex_hinthash.t view on Meta::CPAN


BEGIN { $SIG{__WARN__} = sub { die "WARNING: $_[0]" }; }

my($env_0, $env_A, $env_B);
$env_0 = current_environment;
{ BEGIN { $^H |= 0x20000; $^H{foo} = "A"; } $env_A = current_environment; }
{
	BEGIN { $^H |= 0x20000; $^H{foo} = $main::b_av = ["B"]; }
	$env_B = current_environment;
}

my $have_runtime_hint_hash = "$]" >= 5.009004;

t/lex_hinthash.t view on Meta::CPAN

sub test_env($$$$) {
	my($env, $override, $expect_comp, $expect_run) = @_;
	@main::activity = ();
	my $cv = parse_perl($env, q{
		}.(defined($override) ?
			"BEGIN { \$^H |= 0x20000; \$^H{foo} = $override; }"
		: "").q{
		BEGIN { push @main::activity, [0,$^H{foo}]; }
		main::test_env_1();
	});
	is_deeply \@main::activity, [[0,$expect_comp]];

view all matches for this distribution

Parse-SAMGov

1 match

view release on metacpan or search on metacpan

lib/Parse/SAMGov/Mo.pm view on Meta::CPAN

package Parse::SAMGov::Mo;
$Parse::SAMGov::Mo::VERSION = '0.202';
#use Mo qw'build builder default import coerce is chain';
#   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;

=pod

view all matches for this distribution

Pegex-CSV

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

Pegex-Cmd

1 match

view release on metacpan or search on metacpan

lib/Pegex/Cmd/Mo.pm view on Meta::CPAN

package Pegex::Cmd::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;
# usex Mo qw'default build builder nonlazy';

view all matches for this distribution

Pegex-Drinkup

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

Pegex

1 match

view release on metacpan or search on metacpan

lib/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.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;

view all matches for this distribution

Perl-PrereqScanner-NotQuiteLite

1 match

view release on metacpan or search on metacpan

t/scan/sub.t view on Meta::CPAN

use FindBin;
use lib "$FindBin::Bin/../../";
use t::scan::Util;

test(<<'TEST'); # INGY/YAML-Full-0.0.1/lib/YAML/Full/Base.pm
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...
TEST

test(<<'TEST'); # TYEMQ/Acme-ESP-1.002007/ESP.pm
sub O'o { [ shift,oO( @_ ) ]->[!$[] }

view all matches for this distribution

Perlito5

3 results

view release on metacpan or search on metacpan

lib/Perlito5/Grammar/Scope.pm view on Meta::CPAN

}

sub end_compile_time_scope {
    # warn "EXIT\n";
    my $scope = pop @Perlito5::BASE_SCOPE;
    $^H = $scope->{hint_scalar};
    %^H = %{ $scope->{hint_hash} || {} };
    # print STDERR "end_compile_time_scope [ $^H ]\n";
}

sub compile_time_glob_set {

view all matches for this distribution

Reply

1 match

view release on metacpan or search on metacpan

lib/Reply/Plugin/Hints.pm view on Meta::CPAN

    my ($line) = @_;

    my $package = __PACKAGE__;
    return <<LINE;
BEGIN {
    \$^H = \$${package}::hints;
    \%^H = \%\$${package}::hinthash;
    \${^WARNING_BITS} = \$${package}::warning_bits;
}
$line
;

view all matches for this distribution

Return-Type-Lexical

1 match

view release on metacpan or search on metacpan

lib/Return/Type/Lexical.pm view on Meta::CPAN


our $VERSION = '0.002'; # VERSION

sub import {
    my ($class, %args) = @_;
    $^H{'Return::Type::Lexical/in_effect'} = exists $args{check} && !$args{check} ? 0 : 1;
}

sub unimport {
    $^H{'Return::Type::Lexical/in_effect'} = 0;
}

view all matches for this distribution

RogersMine

2 results

view release on metacpan or search on metacpan

local/lib/perl5/x86_64-linux-thread-multi/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 all matches for this distribution

Slovo

1 match

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

Sub-Auto

1 match

view release on metacpan or search on metacpan

lib/Sub/Auto.pm view on Meta::CPAN

        my $pkg = __PACKAGE__;
        return " BEGIN { ${pkg}::inject_scope }; ";
    }
    sub inject_scope {
        $^H |= 0x120000;
        $^H{DD_METHODHANDLERS} = Scope::Guard->new(sub {
            my $linestr = Devel::Declare::get_linestr;
            my $offset = Devel::Declare::get_linestr_offset;
            substr($linestr, $offset, 0) = ';';
            Devel::Declare::set_linestr($linestr);
        });

view all matches for this distribution

Sub-Quote

1 match

view release on metacpan or search on metacpan

t/hints.t view on Meta::CPAN


TODO: {
  my ($options, $context_sub, $direct_val);
  {
    use BetterNumbers;
    BEGIN { $options = { hints => $^H, hintshash => { %^H } } }
    $direct_val = 10;
    $context_sub = quote_sub(q{ 10 });
  }
  my $options_sub = quote_sub(q{ 10 }, {}, $options);

t/hints.t view on Meta::CPAN


TODO: {
  my ($options, $context_sub, $direct_val);
  {
    use BetterNumbers +2;
    BEGIN { $options = { hints => $^H, hintshash => { %^H } } }
    $direct_val = 10;
    $context_sub = quote_sub(q{ 10 });
  }
  my $options_sub = quote_sub(q{ 10 }, {}, $options);

view all matches for this distribution

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

Switch-Back

1 match

view release on metacpan or search on metacpan

lib/Switch/Back.pm view on Meta::CPAN

        # Unique ID for the "when" (needed by continue())...
        state $ID; $ID++;

        # Convert postfix "when" to a postfix "if" (preserving Afterwhen info for continue())...
        substr($BLOCK, $pos->{from}, $pos->{len})
            = "BEGIN { \$^H{'Switch::Back/Afterwhenprev'} = \$^H{'Switch::Back/Afterwhen'};"
            . "        \$^H{'Switch::Back/Afterwhen'} = 'Afterpostfixwhen$ID'; }"
            . "$pos->{expr}, break if " . _apply_when_magic($pos->{mod})
            . ";Afterpostfixwhen$ID:"
            . "BEGIN { \$^H{'Switch::Back/Afterwhen'} = \$^H{'Switch::Back/Afterwhenprev'}; }"
            . $pos->{end};
    }

    return $BLOCK;
}

view all matches for this distribution

Switch-Right

1 match

view release on metacpan or search on metacpan

lib/Switch/Right.pm view on Meta::CPAN

            ($JUNCTIVE, $MOD_EXPR) = ( $+{JUNC}, _apply_term_magic($+{EXPR}) );
        }

        # Convert postfix "when" to a postfix "if" (preserving Afterwhen info for continue())...
        substr($BLOCK, $pos->{from}, $pos->{len})
            = "BEGIN { \$^H{'Switch::Right/Afterwhenprev'} = \$^H{'Switch::Right/Afterwhen'};"
            . "        \$^H{'Switch::Right/Afterwhen'} = 'Afterpostfixwhen$ID'; }"
            . "$pos->{expr}, break if smartmatch(\$_, $JUNCTIVE scalar($MOD_EXPR))"
            . ";Afterpostfixwhen$ID:"
            . "BEGIN { \$^H{'Switch::Right/Afterwhen'} = \$^H{'Switch::Right/Afterwhenprev'}; }"
            . $pos->{end};
    }

    return $BLOCK;
}

view all matches for this distribution

Syntax-Keyword-RawQuote

1 match

view release on metacpan or search on metacpan

lib/Syntax/Keyword/RawQuote.pm view on Meta::CPAN

}

sub uninstall {
  my ($class, %args) = @_;
  if ($args{"-as"}) {
    $^H{+HINTK_KEYWORDS} =~ s/,\Q$args{"-as"}\E//;
  } else {
    $^H{+HINTK_KEYWORDS} = "";
  }
}

view all matches for this distribution

Template-Toolkit-Simple

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

Test2-Tools-LoadModule

1 match

view release on metacpan or search on metacpan

lib/Test2/Tools/LoadModule.pm view on Meta::CPAN

    ( my $class, local @ARGV ) = @_;	# See _parse_opts
    if ( @ARGV ) {
	my %opt;
	_parse_opts( \%opt );
	if ( HINTS_AVAILABLE ) {
	    $^H{ _make_pragma_key() } = $opt{$_} for keys %opt;
	} else {
	    keys %opt
		and carp "Import options ignored under Perl $]";
	}
	@ARGV

view all matches for this distribution

TestML1

1 match

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

Text-Glob-DWIW

1 match

view release on metacpan or search on metacpan

lib/Text/Glob/DWIW.pm view on Meta::CPAN

   { my $opt=&_opt_get//{}; _opt_chk $opt,{qw'paired 0'}; wantarray ? %$opt : $opt }

#~~ import-export                           # v- every 'use' hold a option hash forever
{ sub import   { $INC{'TGDWIW.pm'}=__FILE__ if first {/^:use$/} @_; # use-abbr
                 splice @_,0,1,$pkg if $_[0] eq 'TGDWIW';   my $opt=&_opt_get;
                 my $p=$^H{$keyH}; $^H{$keyH}=my$dk=_uuid;   $_prv{$dk}=$p if $p;
                 $_opt{$dk}=_opt_chk $opt,0,0 if $opt; goto &Exporter::import }
  sub unimport { undef $^H{$keyH} }           # at compile-time: so we can't free any data;
  *TGDWIW::import=\&import; *TGDWIW::unimport=\&unimport; #\ also not called often anyway
}                                                # i: refaddr \%^H is same for same scope
#~~ inner of range

view all matches for this distribution