| /openbsd/gnu/usr.bin/perl/t/op/ |
| H A D | tie.t | 320 sub FETCH {
339 sub FETCH {1}
373 sub FETCH {
425 sub FETCH
452 sub FETCH {
464 join<FETCH>BOBBINSthings<FETCH>BOBBINSup
479 sub FETCH {
521 sub FETCH {
680 sub FETCH {
789 sub FETCH {
[all …]
|
| H A D | svleak.t | 142 sub FETCH { $_[0]->[$_[1]] }
386 sub FETCH { die 'FETCH' if $_[0][1]{FETCH}; $_[0][0] }
389 tie my $die_on_fetch, 'explosive_scalar', FETCH => 1;
403 tie $die_on_fetch, 'explosive_scalar', FETCH => 1;
410 sub FETCH { die if $explosive; $_[0][0]{$_[1]} }
428 sub FETCH { die if $_[0]->[1]{FETCH}; $_[0]->[0][$_[1]] }
529 sub FETCH { 1; }
551 sub FETCH { 1 }
|
| H A D | tiehash.t | 22 sub FETCH {
68 like($@, qr/\Adecaf not found in FETCH/, "with the correct error");
159 sub FETCH {
161 return $_[0]->SUPER::FETCH($_[1]);
|
| H A D | catch.t | 23 sub FETCH { eval ${$_[0]} // "died" }
44 sub FETCH { eval { ${$_[0]} ? die : undef; 123 } // "died" }
|
| H A D | tiearray.t | 38 sub FETCH {
98 sub FETCH {
134 sub FETCH { }
306 sub FETCH { $i++ }
|
| H A D | inccode.t | 318 'FETCH is called once on undef scalar-tied @INC elem';
324 'FETCH is called once on scalar-tied @INC elem holding ref';
330 'FETCH called once on scalar-tied @INC elem returning array';
335 'FETCH called once on scalar-tied @INC elem returning string';
|
| H A D | runlevel.t | 180 sub FETCH {
232 sub FETCH {
|
| H A D | local.t | 649 my $STORE = my $FETCH = 0;
652 sub FETCH { ++$FETCH; 42 }
660 is($FETCH, 0);
|
| /openbsd/gnu/usr.bin/perl/lib/Tie/ |
| H A D | Array.pm | 30 $val = $obj->FETCH($newsize);
45 push(@result,$obj->FETCH($off+$i));
55 my $val = $obj->FETCH($i);
64 my $val = $obj->FETCH($i);
92 sub FETCH { $_[0]->[$_[1]] } subroutine
|
| H A D | Scalar.pm | 128 sub FETCH { subroutine
152 sub FETCH { subroutine
|
| H A D | Hash.pm | 250 sub FETCH { $_[0]->{$_[1]} } subroutine
262 sub FETCH { $_[0][0]{$_[1]} } subroutine
|
| H A D | Scalar.t | 24 for my $method (qw( TIESCALAR FETCH STORE )) {
43 is( $scalar, 'fetch me', 'STORE() and FETCH() verified with one test!' );
|
| /openbsd/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | tied.t | 34 sub FETCH { subroutine
65 sub FETCH { subroutine
91 sub FETCH { subroutine
112 sub FETCH { subroutine
210 sub TIESCALAR { bless \$a } sub FETCH { "ok " }
|
| H A D | tied_items.t | 33 sub H::FETCH { $h_fetches++; $_[1] - 70 }
48 sub A::FETCH { $a_fetches++; $_[1] - 70 }
|
| H A D | tied_hook.t | 35 sub FETCH { subroutine
83 sub FETCH { subroutine
121 sub FETCH { subroutine
|
| /openbsd/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| H A D | getmagic-once.t | 16 sub FETCH {
19 return $self->SUPER::FETCH;
|
| /openbsd/gnu/usr.bin/perl/ext/XS-APItest/t/ |
| H A D | newAV.t | 19 sub FETCH { return $_[1] + 4; }
40 sub FETCH { return $_[1] eq "k" ? "v" : undef }
|
| H A D | svpv_magic.t | 34 sub FETCH { ++$f; *{chr utf8::unicode_to_native(255)} }
42 sub FETCH { ++$::f; chr utf8::unicode_to_native(255) }
|
| H A D | svpv.t | 75 sub FETCH { ${ +shift } }
87 sub FETCH {
|
| /openbsd/gnu/usr.bin/perl/os2/OS2/OS2-REXX/ |
| H A D | REXX.pm | 89 sub FETCH subroutine
107 sub FETCH subroutine
154 sub FETCH subroutine
|
| /openbsd/gnu/usr.bin/perl/dist/Env/lib/ |
| H A D | Env.pm | 105 sub FETCH { subroutine
151 sub FETCH { subroutine
243 sub FETCH { subroutine
|
| /openbsd/gnu/usr.bin/perl/dist/Attribute-Handlers/t/ |
| H A D | multi.t | 122 sub FETCH { ::ok(1,32); return 1 } subroutine
128 sub FETCH { ::ok(1,35); return 1 } subroutine
135 sub FETCH { ::ok(1,38); return 1 } subroutine
|
| /openbsd/gnu/usr.bin/perl/t/re/ |
| H A D | reg_nc_tie.t | 58 is(Tie::Hash::NamedCapture::FETCH(undef, undef), undef, 'FETCH with undef');
72 foreach ([FETCH => '$key'],
|
| /openbsd/gnu/usr.bin/perl/ext/VMS-DCLsym/ |
| H A D | DCLsym.pm | 80 sub FETCH { subroutine
140 sub EXISTS { defined($_[0]->FETCH(@_)) ? 1 : 0 }
|
| /openbsd/gnu/usr.bin/perl/pod/ |
| H A D | perldebguts.pod | 296 entering Config::FETCH
297 entering Config::FETCH
298 entering Config::FETCH
299 entering Config::FETCH
317 entering Config::FETCH
318 exited Config::FETCH
319 entering Config::FETCH
320 exited Config::FETCH
321 entering Config::FETCH
338 in $=Config::FETCH(ref(Config), 'osname') from lib/Config.pm:574
[all …]
|