| /openbsd/src/gnu/usr.bin/perl/lib/Tie/ |
| D | Scalar.t | 24 for my $method (qw( TIESCALAR FETCH STORE )) {
31 is( $$scalar, undef, 'used TIESCALAR, default value is still undef' );
79 # Bug #72878: don't recurse forever if both new and TIESCALAR are missing.
98 qr /\QNoMethods must define either a TIESCALAR() or a new() method/,
112 sub HasMethod2::TIESCALAR {$called2 ++}
|
| D | Scalar.pm | 101 $pkg->TIESCALAR(@_);
106 sub TIESCALAR { subroutine
146 sub TIESCALAR { subroutine
|
| /openbsd/src/gnu/usr.bin/perl/t/op/ |
| D | tie.t | 163 sub Self::TIESCALAR { bless $_[1], $_[0] }
279 sub TIESCALAR { bless [] }
319 sub TIESCALAR { my $pkg = shift; return bless [@_], $pkg; }
352 sub TIESCALAR { bless $_[1], $_[0] }
369 sub TIESCALAR {
418 sub TIESCALAR
441 sub TIESCALAR {
565 sub TIESCALAR { bless {} }
572 sub TIESCALAR { bless {} }
584 sub TIESCALAR { my $foo = $_[1]; bless \$foo, $_[0] }
[all …]
|
| D | catch.t | 22 sub TIESCALAR { bless \(my $z = $_[1]), $_[0] }
43 sub TIESCALAR { bless \(my $z = $_[1]), $_[0] }
|
| D | runlevel.t | 176 sub TIESCALAR {
228 sub TIESCALAR {
243 sub TIESCALAR {
|
| D | join.t | 32 sub TIESCALAR { my $x = 7; bless \$x };
137 sub TIESCALAR { my $x = '-'; $fetched = 0; bless \$x }
161 sub TIESCALAR { my $x = "1"; $fetched = 0; bless \$x }
|
| D | sselect.t | 89 sub TIESCALAR { bless [] } subroutine
100 sub TIESCALAR { bless [] } subroutine
|
| D | utf8magic.t | 28 sub TIESCALAR { bless [pop] } subroutine
|
| D | require_override.t | 24 sub TIESCALAR{bless[]}
|
| D | studytied.t | 18 sub TIESCALAR { bless [] }
|
| D | gmagic.t | 194 sub TIESCALAR { bless [0, 0] }
215 sub TIESCALAR {
|
| D | assignwarn.t | 25 sub TIESCALAR { my $x; bless \$x }
|
| D | negate.t | 52 sub TIESCALAR { bless[] } subroutine
|
| /openbsd/src/gnu/usr.bin/perl/t/uni/ |
| D | tie.t | 14 sub TIESCALAR { subroutine
48 sub TIESCALAR { subroutine
|
| /openbsd/src/gnu/usr.bin/perl/dist/Storable/t/ |
| D | tied.t | 85 sub TIESCALAR { subroutine
107 sub TIESCALAR { subroutine
210 sub TIESCALAR { bless \$a } sub FETCH { "ok " } subroutine
|
| D | tied_store.t | 38 sub TIESCALAR { bless({}, $_[0]) }
|
| /openbsd/src/gnu/usr.bin/perl/ext/XS-APItest/t/ |
| D | svpv.t | 74 sub TIESCALAR { bless \(my $thing = pop), shift }
82 sub TIESCALAR {
|
| D | svpv_magic.t | 33 sub TIESCALAR { bless [], shift }
|
| /openbsd/src/gnu/usr.bin/perl/dist/Attribute-Handlers/demo/ |
| D | demo_cycle.pl | 3 sub TIESCALAR { subroutine
|
| /openbsd/src/gnu/usr.bin/perl/dist/IO/t/ |
| D | io_leak.t | 30 sub TIESCALAR { bless {} }
|
| /openbsd/src/gnu/usr.bin/perl/lib/ |
| D | builtin-taint.t | 13 sub TIESCALAR($class, @args) { bless \@args, $class }
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
| D | tainted.t | 31 sub TIESCALAR { bless {} }
|
| /openbsd/src/gnu/usr.bin/perl/dist/Attribute-Handlers/t/ |
| D | caller.t | 11 sub TIESCALAR {
|
| /openbsd/src/gnu/usr.bin/perl/t/re/ |
| D | qr.t | 59 sub qrBug::TIESCALAR{bless[], 'qrBug'}
|
| /openbsd/src/gnu/usr.bin/perl/t/lib/warnings/ |
| D | sv | 65 sub TIESCALAR { my $x ; bless \$x}
89 sub TIESCALAR { my $x ; bless \$x}
151 sub TIESCALAR { my $x ; bless \$x}
189 sub TIESCALAR { my $x ; bless \$x}
229 sub TIESCALAR{bless[]} ;
|