/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
H A D | demo_rawdata.pl | 4 sub Cooked : ATTR(SCALAR) { print pop, "\n" } 5 sub PostRaw : ATTR(SCALAR,RAWDATA) { print pop, "\n" } 6 sub PreRaw : ATTR(SCALAR,RAWDATA) { print pop, "\n" }
|
H A D | demo_phases.pl | 6 sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END) 9 sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR) 12 sub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
|
H A D | MyClass.pm | 8 sub Good : ATTR(SCALAR) { 17 print "MyClass::Good:ATTR(SCALAR)(@_);\n"; 20 sub Bad : ATTR(SCALAR) { 25 print "MyClass::Bad:ATTR(SCALAR)(@_);\n";
|
H A D | Demo.pm | 8 sub Demo : ATTR(SCALAR) { 16 sub This : ATTR(SCALAR) {
|
H A D | demo.pl | 16 sub Demo :ATTR(SCALAR) { print STDERR "tada\n" }
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | attrs.t | 51 like $@, qr/^Invalid SCALAR attribute: ["']?plugh["']? at/; 55 like $@, qr/^Invalid SCALAR attribute: ["']?plugh["']? at/; 57 like $@, qr/^Invalid SCALAR attribute: ["']?plugh\(}\)["']? at/; 61 like $@, qr/^Invalid SCALAR attributes: ["']?switch\(10,foo\(7,3\)\) : expensive["']? at/; 63 like $@, qr/^Invalid SCALAR attributes: ["']?Ugly\('\\\("\) : Bad["']? at/; 65 like $@, qr/^Invalid SCALAR attribute: ["']?_5x5["']? at/; 67 like $@, qr/^Invalid SCALAR attributes: ["']?locked : method["']? at/; 79 like $@, qr/^SCALAR package attribute may clash with future reserved word: ["']?plugh["']? at/; 82 like $@, qr/^SCALAR package attributes may clash with future reserved words: ["']?plugh["']? /;
|
H A D | tie.t | 347 # the tmps returned by FETCH should appear to be SCALAR 362 SCALAR SCALAR SCALAR SCALAR 451 # test SCALAR method 471 sub SCALAR { 472 print "SCALAR\n"; 485 SCALAR 487 SCALAR [all...] |
H A D | universal.t | 106 my @refs = qw(SCALAR SCALAR LVALUE GLOB ARRAY HASH CODE);
|
H A D | gv.t | 20 print ref(\$bar) eq 'SCALAR' ? "ok 1\n" : "not ok 1\n"; 48 print ref(\$foo) eq 'SCALAR' ? "ok 8\n" : "not ok 8\n"; 99 print ${*x{SCALAR}}, @{*x{ARRAY}}, %{*x{HASH}}, &{*x{CODE}};
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/ |
H A D | reftype.t | 29 [ SCALAR => \$t ],
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/ |
H A D | array.t | 60 print ((($arg eq SCALAR) ? '' : 'not '), "ok $test\n"); # Scalar context 66 $s = f('SCALAR', 10); # Test 10
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/ |
H A D | Handlers.pm | 21 VAR => [qw[SCALAR ARRAY HASH]], 22 ANY => [qw[SCALAR ARRAY HASH CODE]], 23 "" => [qw[SCALAR ARRAY HASH CODE]], 24 SCALAR => [qw[SCALAR]], 33 my %sigil = (SCALAR=>'$', ARRAY=>'@', HASH=>'%'); 76 (\$type eq 'SCALAR')? tie \$\$ref,'$tieclass',$tiedata 233 sub Good : ATTR(SCALAR) { 244 sub Bad : ATTR(SCALAR) { 427 given the name of a built-in type (C<SCALAR>, [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/ |
H A D | Hash.pm | 108 =item SCALAR this 166 =head1 C<SCALAR>, C<UNTIE> and C<DESTROY> 173 C<SCALAR> is only defined in B<Tie::StdHash> and B<Tie::ExtraHash>. 176 B<Tie::Hash>, B<Tie::StdHash>, or B<Tie::ExtraHash>. See L<pertie/"SCALAR"> 177 to find out what happens when C<SCALAR> does not exist. 243 sub SCALAR { scalar %{$_[0]} } subroutine 255 sub SCALAR { scalar %{$_[0][0]} } subroutine
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | tied.t | 180 @type = qw(SCALAR ARRAY HASH);
|
H A D | tied_hook.t | 189 @type = qw(SCALAR ARRAY HASH);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | base.pm | 27 return( ($vglob && *$vglob{SCALAR}) ? 1 : 0 );
|
H A D | Memoize.pm | 17 sub SCALAR () { 0 } subroutine 106 for my $context (qw(SCALAR LIST)) { 138 $caches{SCALAR} = $caches{LIST}; 140 $caches{LIST} = $caches{SCALAR}; 146 foreach $context (qw(SCALAR LIST)) { 163 S => $caches{SCALAR}, 225 my $context = (wantarray() ? LIST : SCALAR); 229 if ($context == SCALAR) { 234 croak "Internal error \#41; context was neither LIST nor SCALAR\n"; 241 if ($context == SCALAR) { [all...] |
H A D | overload.t | 362 test (overload::StrVal($aI) =~ /^OscalarI=SCALAR\(0x[\da-fA-F]+\)$/); # 112 1095 print overload::StrVal(qr/a/) =~ /^Regexp=SCALAR\(0x[0-9a-f]+\)$/ ? "ok 228\n" : "not ok 228\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/lib/Scalar/ |
H A D | Util.pm | 94 # NOTE: A glob always has a SCALAR 99 or length(ref(${$r})) ? "REF" : "SCALAR"; 113 return 0 if tied($_[0]) || (ref(\($_[0])) ne "SCALAR"); 214 =item readonly SCALAR 216 Returns true if SCALAR is readonly. 241 $type = reftype \$var; # SCALAR
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safeops.t | 77 gelem *x{SCALAR}
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | proto.t | 576 print "not " unless myref($myvar) =~ /^SCALAR\(/;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/ |
H A D | Dumper.pm | 306 if ($realtype eq 'SCALAR' || $realtype eq 'REF') { 435 for $k (qw(SCALAR ARRAY HASH)) { 438 next if $k eq "SCALAR" && ! defined $$gval; # always there 1016 package Fuz; # a weird REF-REF-SCALAR object 1198 SCALAR objects have the weirdest looking C<bless> workaround.
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/ |
H A D | MM_MacOS.pm | 145 $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
|
H A D | MakeMaker.pm | 548 $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/; 563 $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/; 707 if (defined $self->{DIR} && ref \$self->{DIR} eq 'SCALAR') { 714 if (defined $self->{INCLUDE_EXT} && ref \$self->{INCLUDE_EXT} eq 'SCALAR') { 718 if (defined $self->{EXCLUDE_EXT} && ref \$self->{EXCLUDE_EXT} eq 'SCALAR') { 962 $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Opcode/ |
H A D | Safe.pm | 112 &Tie::Hash::NamedCapture::SCALAR
|