Searched refs:UNIVERSAL (Results 1 - 25 of 47) sorted by relevance

12

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A DDescriptions.pm12 sub UNIVERSAL::Name :ATTR { subroutine
16 sub UNIVERSAL::Purpose :ATTR { subroutine
20 sub UNIVERSAL::Unit :ATTR { subroutine
H A Ddemo_phases.pl6 sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END) subroutine
9 sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR) subroutine
12 sub UNIVERSAL::Initer : ATTR(SCALAR,INIT) subroutine
H A Ddemo_range.pl1 package UNIVERSAL; package
H A Ddemo_rawdata.pl1 package UNIVERSAL; package
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Duniversal.t3 # check UNIVERSAL
110 test UNIVERSAL::isa($vals[$p], $refs[$q]) eq ($p==$q or $p+$q==1);
114 test ! UNIVERSAL::can(23, "can");
128 my $subs = join ' ', sort grep { defined &{"UNIVERSAL::$_"} } keys %UNIVERSAL::;
129 ## The test for import here is *not* because we want to ensure that UNIVERSAL
130 ## can always import; it is an historical accident that UNIVERSAL can import.
137 test $a->isa("UNIVERSAL");
139 test ! UNIVERSAL::isa([], "UNIVERSAL");
[all...]
H A Dmethod.t193 is(do { eval 'UNIVERSAL->E::D::foo()';
195 is(do { eval '$e = bless {}, "UNIVERSAL"; $e->E::E::foo()';
199 is(do { eval 'UNIVERSAL->E::F::foo()';
201 is(do { eval '$e = bless {}, "UNIVERSAL"; $e->E::F::foo()';
206 # failed method call or UNIVERSAL::can() should not autovivify packages
210 is( UNIVERSAL::can("Foo", "boogie") ? "yes":"no", "no" );
213 is( Foo->UNIVERSAL::can("boogie") ? "yes":"no", "no" );
286 package UNIVERSAL; sub AUTOLOAD { my \$c = shift; print "\$c \$AUTOLOAD\\n" } package
293 "check if UNIVERSAL::AUTOLOAD works",
H A Dref.t190 package UNIVERSAL; package
345 runperl(prog => 'sub UNIVERSAL::AUTOLOAD { qr// } a->p' );
347 print "ok ",++$test," - UNIVERSAL::AUTOLOAD called when freeing qr//\n";
349 runperl(prog => 'sub UNIVERSAL::DESTROY { warn } bless \$a, A', stderr => 1);
351 print "ok ",++$test," - warn called inside UNIVERSAL::DESTROY\n";
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/File/
H A DCompare.pm32 (UNIVERSAL::isa($from,'GLOB') || UNIVERSAL::isa($from,'IO::Handle'))) {
46 (UNIVERSAL::isa($to,'GLOB') || UNIVERSAL::isa($to,'IO::Handle'))) {
H A DCopy.pm67 || UNIVERSAL::isa($from, 'GLOB')
68 || UNIVERSAL::isa($from, 'IO::Handle'))
72 || UNIVERSAL::isa($to, 'GLOB')
73 || UNIVERSAL::isa($to, 'IO::Handle'))
/opensolaris-onvv-gate/usr/src/lib/gss_mechs/mech_krb5/krb5/asn.1/
H A Dkrbasn1.h35 typedef enum { UNIVERSAL = 0x00, APPLICATION = 0x40, enumerator in enum:__anon2760
H A Dasn1_get.c37 t->asn1class = UNIVERSAL;
110 if (t.asn1class != UNIVERSAL || t.construction != CONSTRUCTED ||
H A Dasn1_make.c129 retval = asn1_make_id(buf,UNIVERSAL,CONSTRUCTED,ASN1_SEQUENCE,&len);
145 retval = asn1_make_id(buf,UNIVERSAL,CONSTRUCTED,ASN1_SET,&len);
H A Dasn1_encode.c47 retval = asn1_make_tag(buf, UNIVERSAL, PRIMITIVE, ASN1_BOOLEAN, length, &partlen);
98 retval = asn1_make_tag(buf,UNIVERSAL,PRIMITIVE,ASN1_INTEGER,length, &partlen);
118 retval = asn1_make_tag(buf,UNIVERSAL,PRIMITIVE,ASN1_ENUMERATED,length, &partlen);
151 retval = asn1_make_tag(buf,UNIVERSAL,PRIMITIVE,ASN1_INTEGER,length, &partlen);
170 retval = asn1_make_tag(buf, UNIVERSAL, PRIMITIVE, tag,
295 retval = asn1_make_tag(buf, UNIVERSAL, PRIMITIVE, ASN1_BITSTRING,
H A Dasn1_k_decode.c66 if (t3.asn1class != UNIVERSAL || t3.tagnum || t3.indef) \
121 && (tagnum || taglen || asn1class != UNIVERSAL)) \
136 && (tagnum || taglen || asn1class != UNIVERSAL)) \
157 && (tagnum || taglen || asn1class != UNIVERSAL)) \
508 if (t.asn1class != UNIVERSAL || t.construction != PRIMITIVE ||
1354 asn1class = UNIVERSAL;
1388 if (asn1class != UNIVERSAL || construction != PRIMITIVE ||
1479 && (tagnum || taglen || asn1class != UNIVERSAL))
1512 && (tagnum || taglen || asn1class != UNIVERSAL))
H A Dasn1_decode.c52 if(asn1class != UNIVERSAL || construction != PRIMITIVE || tagnum != type)\
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_dir.t61 ok(defined($stat) && UNIVERSAL::isa($stat,'File::stat') && $stat->size == 1);
70 ok(defined($statx) && UNIVERSAL::isa($statx,'File::stat') && $statx->size == 1);
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/
H A DUNIVERSAL.pm1 package UNIVERSAL; package
5 # UNIVERSAL should not contain any extra subs/methods beyond those
10 # whenever UNIVERSAL.pm is loaded.
20 UNIVERSAL - base class for ALL classes (blessed references)
30 use UNIVERSAL qw( isa can VERSION );
37 C<UNIVERSAL> is the base class which all bless references will inherit from,
40 C<UNIVERSAL> provides the following methods and functions:
83 use UNIVERSAL qw( isa ) ;
89 require UNIVERSAL ;
90 $yes = UNIVERSAL
[all...]
H A DDumpvalue.pm193 if ( UNIVERSAL::isa($v, 'HASH') ) {
221 } elsif ( UNIVERSAL::isa($v, 'ARRAY') ) {
251 } elsif ( UNIVERSAL::isa($v, 'SCALAR') or ref $v eq 'REF' ) {
254 } elsif ( UNIVERSAL::isa($v, 'CODE') ) {
257 } elsif ( UNIVERSAL::isa($v, 'GLOB') ) {
433 if (UNIVERSAL::isa($_[0], 'ARRAY')) {
435 } elsif (UNIVERSAL::isa($_[0], 'HASH')) {
H A Ddumpvar.pl380 if (UNIVERSAL::isa($val,'ARRAY')) {
385 elsif (UNIVERSAL::isa($val,'HASH')) {
390 elsif (UNIVERSAL::isa($val,'IO')) {
394 # elsif (UNIVERSAL::isa($val,'CODE')) {
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/
H A Dupgradef.t47 UNIVERSAL::isa($self,$class);
/opensolaris-onvv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/
H A DObject.pm103 if (! UNIVERSAL::isa($i, 'Sun::Solaris::Exacct::Object'));
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/
H A DHandlers.pm168 *{"Attribute::Handlers::UNIVERSAL::MODIFY_${_}_ATTRIBUTES"} =
170 push @UNIVERSAL::ISA, 'Attribute::Handlers::UNIVERSAL'
171 unless grep /^Attribute::Handlers::UNIVERSAL$/, @UNIVERSAL::ISA;
521 sub UNIVERSAL::Cycle : ATTR(SCALAR) {
549 sub UNIVERSAL::Cycle : ATTR(SCALAR) {
597 UNIVERSAL::Ugly => Software::Patent # tie attr installed everywhere
747 Installing handlers into UNIVERSAL, makes them...err..universal.
756 sub UNIVERSAL
[all...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Class/
H A DISA.pm67 $CLASS is not included in the list. UNIVERSAL is not included -- if
111 in the magical class UNIVERSAL. This is rarely relevant to the tasks
119 @supers = (Class::Tree::super_path($class), 'UNIVERSAL');
180 # Note: 'UNIVERSAL' is not given any special treatment.
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Test/
H A DMore.pm528 # We can't use UNIVERSAL::isa because we want to honor isa() overrides
533 if( !UNIVERSAL::isa($object, $class) ) {
1041 if( UNIVERSAL::isa($e1, 'ARRAY') and
1042 UNIVERSAL::isa($e2, 'ARRAY') )
1046 elsif( UNIVERSAL::isa($e1, 'HASH') and
1047 UNIVERSAL::isa($e2, 'HASH') )
1051 elsif( UNIVERSAL::isa($e1, 'REF') and
1052 UNIVERSAL::isa($e2, 'REF') )
1058 elsif( UNIVERSAL::isa($e1, 'SCALAR') and
1059 UNIVERSAL
[all...]
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/
H A DPretty.pm76 UNIVERSAL::isa($_[0],"CGI")));

Completed in 183 milliseconds

12