Searched refs:SCALAR (Results 1 - 25 of 26) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A Ddemo_rawdata.pl4 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 Ddemo_phases.pl6 sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END)
9 sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR)
12 sub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
H A DMyClass.pm8 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 DDemo.pm8 sub Demo : ATTR(SCALAR) {
16 sub This : ATTR(SCALAR) {
H A Ddemo.pl16 sub Demo :ATTR(SCALAR) { print STDERR "tada\n" }
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dattrs.t51 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 Dtie.t347 # 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 Duniversal.t106 my @refs = qw(SCALAR SCALAR LVALUE GLOB ARRAY HASH CODE);
H A Dgv.t20 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 Dreftype.t29 [ SCALAR => \$t ],
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Memoize/t/
H A Darray.t60 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 DHandlers.pm21 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 DHash.pm108 =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 Dtied.t180 @type = qw(SCALAR ARRAY HASH);
H A Dtied_hook.t189 @type = qw(SCALAR ARRAY HASH);
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Dbase.pm27 return( ($vglob && *$vglob{SCALAR}) ? 1 : 0 );
H A DMemoize.pm17 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 Doverload.t362 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 DUtil.pm94 # 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 Dsafeops.t77 gelem *x{SCALAR}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dproto.t576 print "not " unless myref($myvar) =~ /^SCALAR\(/;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/
H A DDumper.pm306 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 DMM_MacOS.pm145 $v =~ s/(CODE|HASH|ARRAY|SCALAR)\([\dxa-f]+\)/$1\(...\)/;
H A DMakeMaker.pm548 $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 DSafe.pm112 &Tie::Hash::NamedCapture::SCALAR

Completed in 38 milliseconds

12