| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
| H A D | demo_cycle.pl | 3 sub TIESCALAR { subroutine
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
| H A D | Scalar.pm | 17 sub TIESCALAR { ... } # Overrides inherited method
39 as methods C<TIESCALAR>, C<FETCH> and C<STORE>. The B<Tie::StdScalar>
44 provide their own C<TIESCALAR> method.
52 =item TIESCALAR classname, LIST
88 $pkg->TIESCALAR(@_);
93 sub TIESCALAR { subroutine
96 warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIESCALAR is missing");
100 croak "$pkg doesn't define a TIESCALAR method";
122 sub TIESCALAR { subroutine
|
| H A D | Scalar.t | 25 for my $method qw( TIESCALAR FETCH STORE ) {
31 my $scalar = Tie::StdScalar->TIESCALAR();
32 is( $$scalar, undef, 'used TIESCALAR, default value is still undef' );
34 # Tie::StdScalar redirects to TIESCALAR
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | or.t | 13 sub TIESCALAR { subroutine
|
| H A D | runlevel.t | 70 sub TIESCALAR {
90 sub TIESCALAR {
217 sub TIESCALAR {
240 sub TIESCALAR {
269 sub TIESCALAR {
284 sub TIESCALAR {
|
| H A D | gmagic.t | 56 sub TIESCALAR { subroutine
|
| H A D | tie.t | 176 sub Self::TIESCALAR { bless $_[1], $_[0] }
292 sub TIESCALAR { bless [] }
332 sub TIESCALAR { my $pkg = shift; return bless [@_], $pkg; }
365 sub TIESCALAR { bless $_[1], $_[0] }
382 sub TIESCALAR {
431 sub TIESCALAR
|
| H A D | attrs.t | 125 sub TIESCALAR { my $x = $_[1]; bless \$x, $_[0]; } subroutine
|
| H A D | join.t | 26 sub TIESCALAR { my $x = 7; bless \$x }; subroutine
|
| H A D | assignwarn.t | 23 sub TIESCALAR { my $x; bless \$x } subroutine
|
| H A D | lex_assign.t | 64 sub B::TIESCALAR {bless [11], 'B'}
|
| H A D | universal.t | 184 sub TIESCALAR { bless {} } subroutine
|
| H A D | taint.t | 877 sub Tie::TIESCALAR {
|
| H A D | pat.t | 3121 { package P; $a=1; sub TIESCALAR { bless[] } sub FETCH { $a++ } }
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
| H A D | tied.t | 90 sub TIESCALAR { subroutine
112 sub TIESCALAR { subroutine
216 sub TIESCALAR { bless \$a } sub FETCH { "ok " } subroutine
|
| H A D | tied_hook.t | 119 sub TIESCALAR { subroutine
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
| H A D | dualvar.t | 79 sub TIESCALAR { bless {} } subroutine
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
| H A D | scalar.t | 126 { package P; sub TIESCALAR {bless{}} sub FETCH {"ok 24\n"} }
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Env.pm | 100 sub TIESCALAR { subroutine
|
| H A D | overload.pm | 1337 sub TIESCALAR { my $pack = shift; $pack->new(@_) }
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/Find/t/ |
| H A D | find.t | 517 sub TIESCALAR {bless []}; subroutine
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/ |
| H A D | Handlers.pm | 618 to the TIESCALAR, TIEHASH, etc. that ties it.
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/B/B/ |
| H A D | C.pm | 1842 foreach my $m (qw(new DESTROY TIESCALAR TIEARRAY TIEHASH TIEHANDLE))
|
| /opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/ |
| H A D | BigFloat.pm | 75 sub TIESCALAR { my ($class) = @_; bless \$round_mode, $class; } subroutine
|
| H A D | BigInt.pm | 128 # the original qw() does not work with the TIESCALAR below, why?
168 sub TIESCALAR { my ($class) = @_; bless \$round_mode, $class; } subroutine
|