Home
last modified time | relevance | path

Searched refs:UNIVERSAL (Results 1 – 25 of 129) sorted by relevance

123456

/openbsd/src/gnu/usr.bin/perl/t/op/
Duniversal.t107 is UNIVERSAL::isa($vals[$p], $refs[$q]), ($p==$q or $p+$q==1);
111 ok UNIVERSAL::can(23, "can");
113 ok UNIVERSAL::can("23", "can"), '"23" can can when the pack exists';
114 ok UNIVERSAL::can(23, "can"), '23 can can when the pack exists';
116 ok UNIVERSAL::can(*STDOUT, 'turn'), 'globs with IOs can';
117 ok UNIVERSAL::can(\*STDOUT, 'turn'), 'globrefs with IOs can';
118 ok UNIVERSAL::can("STDOUT", 'turn'), 'IO barewords can';
140 my $subs = join ' ', sort grep { defined &{"UNIVERSAL::$_"} } keys %UNIVERSAL::;
149 ok ! UNIVERSAL::isa([], "UNIVERSAL");
151 ok ! UNIVERSAL::can({}, "can");
[all …]
Drequire_gh20577.t47 ok(UNIVERSAL::isa($INC[0],"FatPacked"), '$INC[0] starts FatPacked');
54 ok(UNIVERSAL::isa($INC[0],"FatPacked"), '$INC[0] is still FatPacked');
55 ok(UNIVERSAL::isa($INC{"Test1.pm"},"FatPacked"), '$INC{"Test1.pm"} is still FatPacked');
/openbsd/src/gnu/usr.bin/perl/dist/Carp/t/
Dstack_after_err.t20 # a) A UNIVERSAL::can module
21 # b) A UNIVERSAL::isa module
24 [ 'StrVal fallback in the presence of UNIVERSAL::isa',
25 'BEGIN { $UNIVERSAL::isa::VERSION = 1 }',
28 [ 'StrVal fallback in the presence of UNIVERSAL::can',
29 'BEGIN { $UNIVERSAL::can::VERSION = 1 }',
32 [ 'StrVal fallback in the presence of UNIVERSAL::can/isa',
33 'BEGIN { $UNIVERSAL::can::VERSION = $UNIVERSAL::isa::VERSION = 1 }',
Dvivify_stash.t8 our $has_UNIVERSAL_isa; BEGIN { $has_UNIVERSAL_isa = exists($UNIVERSAL::{"isa::"}); }
15 print !(exists($UNIVERSAL::{"isa::"}) xor $has_UNIVERSAL_isa) ? "" : "not ", "ok 3 # used UNIVERSAL…
Dbroken_univ_can.t9 sub UNIVERSAL::can { die; }
13 BEGIN { no warnings 'portable'; $UNIVERSAL::can::VERSION = 0xbaff1ed_bee; }
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/
DIteratorFactory.pm75 unless UNIVERSAL::can( $dclass, 'can_handle' )
76 && UNIVERSAL::can( $dclass, 'make_iterator' );
167 if UNIVERSAL::can( $dclass, 'can_handle' )
168 && UNIVERSAL::can( $dclass, 'make_iterator' );
177 if UNIVERSAL::can( $dclass, 'can_handle' )
178 && UNIVERSAL::can( $dclass, 'make_iterator' );
208 && UNIVERSAL::isa( $source->raw, 'TAP::Parser::SourceHandler' ) );
/openbsd/src/gnu/usr.bin/perl/cpan/Digest-SHA/
Dshasum138 my ($version, $BITS, $UNIVERSAL, $tag, $strict, $ignore_missing);
148 'U|UNIVERSAL' => \$UNIVERSAL,
161 ($binary, $text, $BITS, $UNIVERSAL)) > 1;
175 if $tag && $UNIVERSAL;
205 if ($isDOSish) { $binary = 1 unless $text || $UNIVERSAL }
207 my $modesym = $binary ? '*' : ($UNIVERSAL ? 'U' : ($BITS ? '^' : ' '));
220 my $mode = $binary ? 'b' : ($UNIVERSAL ? 'U' : ($BITS ? '0' : ''));
283 ($binary, $text, $UNIVERSAL, $BITS) =
/openbsd/src/gnu/usr.bin/perl/dist/Attribute-Handlers/demo/
DDescriptions.pm12 sub UNIVERSAL::Name :ATTR { subroutine
16 sub UNIVERSAL::Purpose :ATTR { subroutine
20 sub UNIVERSAL::Unit :ATTR { subroutine
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
/openbsd/src/gnu/usr.bin/perl/lib/File/
DCompare.pm32 (UNIVERSAL::isa($from, 'GLOB') || UNIVERSAL::isa($from, 'IO::Handle'))) {
46 (UNIVERSAL::isa($to, 'GLOB') || UNIVERSAL::isa($to, 'IO::Handle'))) {
DCopy.pm82 || UNIVERSAL::isa($from, 'GLOB')
83 || UNIVERSAL::isa($from, 'IO::Handle'))
87 || UNIVERSAL::isa($to, 'GLOB')
88 || UNIVERSAL::isa($to, 'IO::Handle'))
/openbsd/src/gnu/usr.bin/perl/dist/Attribute-Handlers/t/
Dmulti.t31 sub UNIVERSAL::Lastly :ATTR(INIT) { ::ok $_[4][0] && $main::phase, $_[4][1] } subroutine
33 sub UNIVERSAL::Okay :ATTR(BEGIN) { subroutine
144 UNIVERSAL::Rowdy => Tie::Row::dy,
161 sub UNIVERSAL::Dummy :ATTR { ++$applied }; subroutine
197 sub UNIVERSAL::Stooge :ATTR(END) {}; subroutine
/openbsd/src/gnu/usr.bin/perl/t/uni/
Duniversal.t108 is UNIVERSAL::isa($vals[$p], $refs[$q]), ($p==$q or $p+$q==1);
113 ok UNIVERSAL::isa(Àlìcè => "UNIVERSAL");
115 cmp_ok UNIVERSAL::can(Àlìcè => "can"), '==', \&UNIVERSAL::can;
142 eval { UNIVERSAL::DOES([], "fòò") };
/openbsd/src/gnu/usr.bin/perl/dist/Safe/
DSafe.pm80 &UNIVERSAL::import
81 &UNIVERSAL::isa
82 &UNIVERSAL::can
83 &UNIVERSAL::unimport
84 &UNIVERSAL::VERSION
108 &UNIVERSAL::DOES
/openbsd/src/gnu/usr.bin/perl/ext/attributes/
Dattributes.pm63 $pkgmeth = UNIVERSAL::can($home_stash, "MODIFY_${svtype}_ATTRIBUTES")
103 $pkgmeth = UNIVERSAL::can($stash, "FETCH_${svtype}_ATTRIBUTES")
111 sub require_version { goto &UNIVERSAL::VERSION }
/openbsd/src/gnu/usr.bin/perl/cpan/Pod-Usage/t/inc/Pod/
DInputObjects.pm526 if (UNIVERSAL::isa($_, 'Pod::InteriorSequence') or
527 UNIVERSAL::can($_, 'nested'))
543 if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
901 if UNIVERSAL::isa($_, 'Pod::InteriorSequence');
/openbsd/src/gnu/usr.bin/perl/cpan/IO-Compress/lib/IO/Compress/Base/
DCommon.pm116 (UNIVERSAL::isa($_[0],'GLOB') or
117 UNIVERSAL::isa($_[0],'IO::Handle') or
118 UNIVERSAL::isa(\$_[0],'GLOB'))
131 UNIVERSAL::isa(\$_[0], 'SCALAR'));
197 return 'buffer' if UNIVERSAL::isa($_[0], 'SCALAR');
198 return 'array' if UNIVERSAL::isa($_[0], 'ARRAY') && $extended ;
199 return 'hash' if UNIVERSAL::isa($_[0], 'HASH') && $hash ;
200 return 'code' if UNIVERSAL::isa($_[0], 'CODE') && $wantCode ;
510 if @_ == 2 && defined $_[1] && UNIVERSAL::isa($_[1], "IO::Compress::Base::Parameters");
/openbsd/src/gnu/usr.bin/perl/cpan/Time-Piece/
DSeconds.pm59 if (UNIVERSAL::isa($rhs, 'Time::Seconds')) {
86 $rhs = $rhs->seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
99 $rhs = $rhs->seconds if UNIVERSAL::isa($rhs, 'Time::Seconds');
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Harness/lib/TAP/Parser/SourceHandler/
DHandle.pm71 && UNIVERSAL::isa( $src->raw, 'IO::Handle' );
91 || UNIVERSAL::isa( $source->raw, 'IO::Handle' );
/openbsd/src/gnu/usr.bin/perl/dist/Attribute-Handlers/lib/Attribute/
DHandlers.pm102 my $uni = defined &UNIVERSAL::import && \&UNIVERSAL::import;
237 push @UNIVERSAL::ISA, 'Attribute::Handlers::UNIVERSAL'
238 unless grep /^Attribute::Handlers::UNIVERSAL$/, @UNIVERSAL::ISA;
/openbsd/src/gnu/usr.bin/perl/dist/Dumpvalue/lib/
DDumpvalue.pm219 if ( UNIVERSAL::isa($v, 'HASH') ) {
247 } elsif ( UNIVERSAL::isa($v, 'ARRAY') ) {
277 } elsif ( UNIVERSAL::isa($v, 'SCALAR') or ref $v eq 'REF' ) {
280 } elsif ( UNIVERSAL::isa($v, 'CODE') ) {
283 } elsif ( UNIVERSAL::isa($v, 'GLOB') ) {
460 if (UNIVERSAL::isa($_[0], 'ARRAY')) {
462 } elsif (UNIVERSAL::isa($_[0], 'HASH')) {
/openbsd/src/gnu/usr.bin/perl/t/mro/
Dbasic.t62 @UNIVERSAL::ISA = qw/MRO_F/;
65 @UNIVERSAL::ISA = ();
383 sub UNIVERSAL::DESTROY { $destroy_output = "old" }
386 undef *UNIVERSAL::DESTROY;
387 *UNIVERSAL::DESTROY = sub { $destroy_output = "new" };
392 undef *UNIVERSAL::DESTROY;
/openbsd/src/gnu/usr.bin/perl/cpan/Module-Load-Conditional/lib/Module/Load/
DConditional.pm217 if (UNIVERSAL::isa($dir, 'CODE')) {
220 } elsif (UNIVERSAL::isa($dir, 'ARRAY')) {
223 } elsif (UNIVERSAL::can($dir, 'INC')) {
227 if (!UNIVERSAL::isa($fh, 'GLOB')) {
/openbsd/src/gnu/usr.bin/perl/t/lib/warnings/
Duniversal13 UNIVERSAL::isa $a, Jim ;
25 UNIVERSAL::isa $a, Jim ;
/openbsd/src/gnu/usr.bin/perl/cpan/Digest-SHA/lib/Digest/
DSHA.pm115 my ($binary, $UNIVERSAL, $BITS) =
148 binmode(FH) if $binary || $UNIVERSAL;
149 if ($UNIVERSAL && _istext(*FH, $file)) {

123456