| /openbsd-current/gnu/usr.bin/perl/dist/Attribute-Handlers/demo/ |
| H A D | demo_cycle.pl | 9 sub FETCH { subroutine
|
| /openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| H A D | getmagic-once.t | 16 sub FETCH {
19 return $self->SUPER::FETCH;
|
| H A D | lln.t | 28 sub FETCH { $_[1] }
|
| H A D | tainted.t | 32 sub FETCH { $^X }
|
| /openbsd-current/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) }
51 is $f, 2, 'SvPVutf8 does not stop stringification from calling FETCH';
|
| /openbsd-current/gnu/usr.bin/perl/t/op/ |
| H A D | catch.t | 7 # RT #105930: eval 'UNITCHECK{die}' crashes inside FETCH
23 sub FETCH { eval ${$_[0]} // "died" }
44 sub FETCH { eval { ${$_[0]} ? die : undef; 123 } // "died" }
|
| H A D | utf8magic.t | 29 sub FETCH { $_[0][0] } subroutine
|
| H A D | studytied.t | 19 sub FETCH { $c++ ? "next" : "first" }
|
| H A D | require_override.t | 26 sub FETCH{}
|
| H A D | tiehash.t | 22 sub FETCH {
30 die "$key not found in 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 | tie.t | 278 # FETCH freeing tie'd SV still works
280 sub FETCH { *a = \1; 2 }
290 sub F1::FETCH { 1 }
295 sub F2::FETCH { my $self = shift; my $x = $f1[3]; $self }
302 sub F3::FETCH { 1 }
307 sub F4::FETCH { my $self = shift; my $x = $f3{3}; $self }
317 # test untie() from within FETCH
320 sub FETCH {
334 # the tmps returned by FETCH should appear to be SCALAR
339 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 {
[all...] |
| /openbsd-current/gnu/usr.bin/perl/lib/Tie/Array/ |
| H A D | push.t | 15 sub FETCH { $_[0]->[$_[1]] }
|
| /openbsd-current/gnu/usr.bin/perl/dist/Storable/t/ |
| H A D | tied_items.t | 33 sub H::FETCH { $h_fetches++; $_[1] - 70 }
48 sub A::FETCH { $a_fetches++; $_[1] - 70 }
58 # a bug in 5.12 and earlier caused an extra FETCH
|
| 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 " }
|
| /openbsd-current/gnu/usr.bin/perl/dist/IO/t/ |
| H A D | io_leak.t | 31 sub FETCH { die }
|
| /openbsd-current/gnu/usr.bin/perl/lib/Tie/ |
| H A D | ExtraHash.t | 29 # STORE and FETCH
32 'STORE and FETCH');
|
| H A D | Scalar.pm | 16 sub FETCH { ... } # Provide a needed method
27 sub FETCH { ... }
40 as methods C<TIESCALAR>, C<FETCH> and C<STORE>. The B<Tie::StdScalar>
60 =item FETCH this
80 they do not do anything useful. Calling C<< Tie::Scalar::FETCH >> or
128 sub FETCH { subroutine
130 croak "$pkg doesn't define a FETCH method";
152 sub FETCH { 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-current/gnu/usr.bin/perl/t/uni/ |
| H A D | tie.t | 21 sub FETCH { subroutine
|
| /openbsd-current/gnu/usr.bin/perl/t/re/ |
| H A D | qr.t | 60 sub qrBug::FETCH { $scratch .= "[fetching]"; 'glat' }
|
| H A D | reg_nc_tie.t | 27 # FETCH
28 is($+{a}, "h", "FETCH");
29 is($+{b}, "l", "FETCH");
30 is($-{a}[0], "h", "FETCH");
31 is($-{a}[1], "a", "FETCH");
58 is(Tie::Hash::NamedCapture::FETCH(undef, undef), undef, 'FETCH with undef');
72 foreach ([FETCH => '$key'],
|
| /openbsd-current/gnu/usr.bin/perl/cpan/Memoize/Memoize/ |
| H A D | NDBM_File.pm | 13 defined shift->FETCH(@_);
|
| /openbsd-current/gnu/usr.bin/perl/ext/Tie-Memoize/lib/Tie/ |
| H A D | Memoize.pm | 14 sub FETCH { subroutine
73 the reference to the C<FETCH>ing function. The optional arguments are
77 Both the C<FETCH>ing function and the C<EXISTS> functions have the
81 function is different from the C<FETCH>ing function, it should return
82 a TRUE value on success. The C<FETCH>ing function should return the
91 2: FETCH function
|