Home
last modified time | relevance | path

Searched refs:blessed (Results 1 – 25 of 85) sorted by relevance

1234

/openbsd/src/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/
Dblessed.t7 use Scalar::Util qw(blessed);
11 ok(!defined blessed(undef), 'undef is not blessed');
12 ok(!defined blessed(1), 'Numbers are not blessed');
13 ok(!defined blessed('A'), 'Strings are not blessed');
14 ok(!defined blessed({}), 'Unblessed HASH-ref');
15 ok(!defined blessed([]), 'Unblessed ARRAY-ref');
16 ok(!defined blessed(\$t), 'Unblessed SCALAR-ref');
21 is(blessed($x), "ABC", 'blessed ARRAY-ref');
24 is(blessed($x), "DEF", 'blessed HASH-ref');
27 cmp_ok(blessed($x), "eq", "0", 'blessed HASH-ref');
[all …]
Dgetmagic-once.t6 use Scalar::Util qw(blessed reftype refaddr);
28 ok blessed($var);
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/t/
Dblessed.t70 ok(6, ref($$aobj[0]) eq 'yin', "blessed hash in array");
71 ok(7, ref($$aobj[1]) eq 'yang', "blessed array in array");
72 ok(8, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
73 ok(9, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
75 ok(10, ref($$hobj{'hash'}) eq 'yin', "blessed hash in hash");
76 ok(11, ref($$hobj{'array'}) eq 'yang', "blessed array in hash");
77 ok(12, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
78 ok(13, ${$$hobj{'scalar'}} eq '3', "blessed scalar in hash contents");
88 ok(18, ref($$aobj[0]) eq 'yin', "blessed hash in array");
89 ok(19, ref($$aobj[1]) eq 'yang', "blessed array in array");
[all …]
/openbsd/src/gnu/usr.bin/perl/t/lib/warnings/
Dbuiltin60 # builtin.c - blessed refs
63 use builtin qw(blessed refaddr reftype);
64 my ($blessed, $refaddr, $reftype) = (\&blessed, \&refaddr, \&reftype);
66 blessed($ref);
69 &blessed($ref);
72 $blessed->($ref);
76 blessed($ref);
79 &blessed($ref);
82 $blessed->($ref);
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/API/
DInterceptResult.pm27 sub clone { blessed($_[0])->new(@{dclone($_[0])}) }
35 my $blessed = blessed($event);
39 return $event if $blessed && $event->isa($upgrade_class) && !$params{_upgrade_clone};
41 my $fd = dclone($blessed ? $event->facet_data : $event);
43 my $class = $params{result_class} ||= blessed($self);
88 return blessed($self)->new_from_ref(\@out)
109 return blessed($self)->new_from_ref(\@out)
152 return blessed($self)->new_from_ref(\@out)
/openbsd/src/gnu/usr.bin/perl/lib/
Dbuiltin.t99 use builtin qw( refaddr reftype blessed );
111 is(blessed($arr), undef, 'blessed yields undef for non-object');
112 is(blessed($obj), "Object", 'blessed yields package name for object');
115 is(blessed($obj) ? "YES" : "NO", "YES", 'blessed in boolean context still works');
118 …is(blessed(bless [], "0") ? "YES" : "NO", "NO", 'blessed in boolean context handles "0" cornercase…
120 is(prototype(\&builtin::blessed), '$', 'blessed prototype');
634 for my $func (qw(is_bool is_weak blessed refaddr reftype ceil floor is_tainted
638 $func =~ /(^ref|blessed|is_weak)/ ? "\\1" : '"abc"';
Doverload.pm103 $package = builtin::blessed($package);
/openbsd/src/gnu/usr.bin/perl/pod/
Dperlobj.pod97 that is being blessed as our object:
108 Once we've blessed the hash referred to by C<$self> we can start
145 use Scalar::Util 'blessed';
151 print blessed( $bar ) // 'not blessed'; # prints "Class"
154 print blessed( $bar ) // 'not blessed'; # prints "not blessed"
159 reference. That's why the second call to C<blessed( $bar )> returns
164 reference" or describe an object as a "blessed reference", but this is
165 incorrect. It isn't the reference that is blessed as an object; it's
253 looks for the method in the package that the object has been blessed
365 blessed into the C<C> class, the C<speak()> method in the C<B> class
[all …]
Dperlclass.pod34 blessed with (or any of its parents). This system, while bare-bones, was
311 Using C<blessed> (C<Scalar::Util::blessed> or C<builtin::blessed>) on the
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test2/Util/
DFacets2Legacy.pm29 if (blessed($in) && $in->isa('Test2::Event')) {
119 if (blessed($in) && $in->isa('Test2::Event')) {
/openbsd/src/gnu/usr.bin/perl/dist/Storable/
DREADME27 HASH (possibly tied) and references (possibly blessed) to those items.
31 had blessed references, the retrieved references are blessed into
38 Objects (blessed references) may also redefine the way storage and
DMANIFEST18 t/blessed.t
DChangeLog246 - fix t/blessed.t for cperl5.22
269 - Improve t/blessed.t in the creation of sv_yes/sv_no
409 - Fix bug handling blessed references to overloaded objects, plus other
547 hook. Consequentially the object was not blessed at all when thawed.
726 restore overloading if the object was not blessed yet,
730 * Storable hooks asking for serialization of blessed ref could
731 get un-blessed refs at retrieval time, for the very same
736 - Added support for blessed ref to tied structures. This is the
774 - Auto requires module of blessed ref when STORABLE_thaw misses.
777 the blessed reference is.
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Time-Piece/
DPiece.pm75 return 1 if blessed($_[1]) && $_[1]->isa('Time::Piece');
124 $class = blessed($class) || $class;
658 if (blessed($rhs) && $rhs->isa('Time::Piece')) {
683 if (blessed($rhs) && $rhs->isa('Time::Piece')) {
704 unless (blessed($rhs) && $rhs->isa('Time::Piece')) {
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/Tester/
DDelegate.pm40 return $this->{Object}->can($sub) if Scalar::Util::blessed($this);
/openbsd/src/gnu/usr.bin/perl/cpan/JSON-PP/t/
Dcore_bools.t41 ok !ref $new_true, "core true value is not blessed";
42 ok !ref $new_false, "core falase value is not blessed";
/openbsd/src/gnu/usr.bin/perl/dist/threads-shared/lib/threads/
Dshared.pm172 if (my $class = blessed($item)) {
/openbsd/src/gnu/usr.bin/perl/cpan/Filter-Util-Call/t/
Drt_54452-rebless.t1 # RT #54452 check that filter_add does not rebless an already blessed
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/t/
Dmeta-obj.t7 use Scalar::Util qw(blessed);
83 blessed($meta->as_struct),
/openbsd/src/gnu/usr.bin/perl/cpan/Getopt-Long/t/
Dgol-linkage.t85 my $blessed = bless(\%lnk, "OverLoad::Test");
/openbsd/src/gnu/usr.bin/perl/cpan/Math-BigInt/lib/Math/
DBigInt.pm720 if (defined(blessed($wanted)) && $wanted -> isa(__PACKAGE__)) {
1103 unless defined(blessed($nums -> [$i]))
1112 unless defined(blessed($base)) && $base -> isa(__PACKAGE__);
1134 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
1188 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
1249 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
1318 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
1376 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
2959 unless defined(blessed($base)) && $base -> isa(__PACKAGE__);
3746 $b = $class -> new($b) unless defined(blessed($b));
[all …]
DBigFloat.pm394 if (defined(blessed($wanted)) && $wanted -> isa(__PACKAGE__)) {
410 if (defined(blessed($wanted))) {
845 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
907 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
977 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
1054 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
1122 unless (@_ && (defined(blessed($_[0])) && $_[0] -> isa(__PACKAGE__) ||
2604 unless defined(blessed($base)) && $base -> isa(__PACKAGE__);
4057 unless defined(blessed($b)) && $b -> isa(__PACKAGE__);
4089 unless defined(blessed($b)) && $b -> isa(__PACKAGE__);
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/CPAN-Meta/lib/CPAN/Meta/
DPrereqs.pm171 my @other = blessed($other) ? $other : @$other;
/openbsd/src/gnu/usr.bin/perl/t/perf/
Dopcount.t748 sub { builtin::blessed([]); },
751 blessed => 1,
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/lib/Test/
DBuilder.pm213 }, blessed($self);
265 … Stack => $self->{Stack}, Hub => $hub, no_log_results => $self->{no_log_results} }, blessed($self);
378 …&& $err =~ m/Label not found for "last T2_SUBTEST_WRAPPER"/ || (blessed($err) && blessed($err) eq …

1234