/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/ |
H A D | Descriptions.pm | 12 sub UNIVERSAL::Name :ATTR { subroutine 16 sub UNIVERSAL::Purpose :ATTR { subroutine 20 sub UNIVERSAL::Unit :ATTR { subroutine
|
H A D | demo_phases.pl | 6 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 D | demo_range.pl | 1 package UNIVERSAL; package
|
H A D | demo_rawdata.pl | 1 package UNIVERSAL; package
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | universal.t | 3 # 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 D | method.t | 193 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 D | ref.t | 190 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 D | Compare.pm | 32 (UNIVERSAL::isa($from,'GLOB') || UNIVERSAL::isa($from,'IO::Handle'))) { 46 (UNIVERSAL::isa($to,'GLOB') || UNIVERSAL::isa($to,'IO::Handle'))) {
|
H A D | Copy.pm | 67 || 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 D | krbasn1.h | 35 typedef enum { UNIVERSAL = 0x00, APPLICATION = 0x40, enumerator in enum:__anon2760
|
H A D | asn1_get.c | 37 t->asn1class = UNIVERSAL; 110 if (t.asn1class != UNIVERSAL || t.construction != CONSTRUCTED ||
|
H A D | asn1_make.c | 129 retval = asn1_make_id(buf,UNIVERSAL,CONSTRUCTED,ASN1_SEQUENCE,&len); 145 retval = asn1_make_id(buf,UNIVERSAL,CONSTRUCTED,ASN1_SET,&len);
|
H A D | asn1_encode.c | 47 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 D | asn1_k_decode.c | 66 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 D | asn1_decode.c | 52 if(asn1class != UNIVERSAL || construction != PRIMITIVE || tagnum != type)\
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
H A D | io_dir.t | 61 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 D | UNIVERSAL.pm | 1 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 D | Dumpvalue.pm | 193 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 D | dumpvar.pl | 380 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 D | upgradef.t | 47 UNIVERSAL::isa($self,$class);
|
/opensolaris-onvv-gate/usr/src/cmd/perl/contrib/Sun/Solaris/Exacct/Object/ |
H A D | Object.pm | 103 if (! UNIVERSAL::isa($i, 'Sun::Solaris::Exacct::Object'));
|
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/ |
H A D | Handlers.pm | 168 *{"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 D | ISA.pm | 67 $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 D | More.pm | 528 # 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 D | Pretty.pm | 76 UNIVERSAL::isa($_[0],"CGI")));
|