Home
last modified time | relevance | path

Searched refs:blessed (Results 26 – 50 of 4693) sorted by relevance

12345678910>>...188

/dports/databases/p5-DBM-Deep/DBM-Deep-2.0016/t/
H A D24_autobless.t27 $db->{blessed} = $obj;
28 is( $db->{blessed}{a}, 1 );
29 is( $db->{blessed}{b}[0], 1 );
30 is( $db->{blessed}{b}[1], 2 );
31 is( $db->{blessed}{b}[2], 3 );
61 my $obj = $db->{blessed};
126 my $obj = $db->{blessed};
167 my $blessed = $db->{blessed};
169 is( $blessed->{a}, 1 );
182 $db->{blessed} = $obj;
[all …]
/dports/devel/p5-MooseX-Types/MooseX-Types-0.50/lib/MooseX/Types/
H A DTypeDecorator.pm24 if(blessed $self) {
38 my @tc = grep {blessed $_} map {
39 blessed $_ ? $_ :
79 if(blessed $arg && $arg->isa('Moose::Meta::TypeConstraint')) {
82 blessed $arg &&
87 } elsif(blessed $arg) {
88 …>isa('Moose::Meta::TypeConstraint') or ->isa('MooseX::Types::UndefinedType'), not ". blessed $arg);
105 if(blessed $self) {
125 blessed $self
140 return blessed $self
/dports/devel/p5-Test2-Harness/Test2-Harness-1.000082/t/integration/plugin/lib/App/Yath/Plugin/
H A DTestPlugin.pm67 die "self is not an instance! ($self)" unless blessed($self);
93 die "self is not an instance! ($self)" unless blessed($self);
100 die "self is not an instance! ($self)" unless blessed($self);
117 die "self is not an instance! ($self)" unless blessed($self);
131 die "self is not an instance! ($self)" unless blessed($self);
144 die "self is not an instance! ($self)" unless blessed($self);
157 die "self is not an instance! ($self)" unless blessed($self);
166 die "self is not an instance! ($self)" unless blessed($self);
181 die "self is not an instance! ($self)" unless blessed($self);
/dports/devel/py-blessed/blessed-1.19.0/tests/
H A Dtest_core.py30 import blessed
31 assert blessed.__all__ == ('Terminal',)
256 import blessed
261 reload_module(blessed)
267 reload_module(blessed)
274 import blessed.terminal
275 assert '_' not in dir(blessed.terminal)
403 import blessed.terminal
409 import blessed.terminal
424 import blessed.terminal
[all …]
H A Dtest_keyboard.py88 from blessed.keyboard import Keystroke
102 from blessed.keyboard import Keystroke
115 import blessed.keyboard
123 assert hasattr(blessed.keyboard, keycode)
132 from blessed.keyboard import _alternative_left_right
149 from blessed.keyboard import get_keyboard_sequences
185 import blessed.keyboard
206 monkeypatch.setattr(blessed.keyboard,
214 keymap = blessed.keyboard.get_keyboard_sequences(term)
288 from blessed.keyboard import get_leading_prefixes
[all …]
/dports/devel/p5-SUPER/SUPER-1.17/lib/
H A DSUPER.pm20 my $blessed = blessed( $self );
21 my $self_class = defined $blessed ? $blessed : $self;
49 my $blessed = blessed( $class );
51 $class = $blessed if $blessed;
/dports/devel/p5-Carp-Assert-More/Carp-Assert-More-2.0.1/
H A DMore.pm484 return if Scalar::Util::blessed( $this ) && $this->isa( $type );
505 if ( Scalar::Util::blessed($obj) ) {
540 if ( Scalar::Util::blessed( $ref ) ) {
583 if ( Scalar::Util::blessed( $ref ) ) {
645 if ( ref($ref) eq 'HASH' || (Scalar::Util::blessed( $ref ) && $ref->isa( 'HASH' )) ) {
665 if ( ref($ref) eq 'HASH' || (Scalar::Util::blessed( $ref ) && $ref->isa( 'HASH' )) ) {
694 if ( ref($ref) eq 'ARRAY' || (Scalar::Util::blessed( $ref ) && $ref->isa( 'ARRAY' )) ) {
714 if ( ref($ref) eq 'ARRAY' || (Scalar::Util::blessed( $ref ) && $ref->isa( 'ARRAY' )) ) {
736 if ( ref($ref) eq 'ARRAY' || (Scalar::Util::blessed( $ref ) && $ref->isa( 'ARRAY' )) ) {
763 if ( ref($ref) eq 'CODE' || (Scalar::Util::blessed( $ref ) && $ref->isa( 'CODE' )) ) {
[all …]
/dports/lang/perl5.34/perl-5.34.0/dist/threads-shared/t/
H A 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");
88 ok(18, ref($$aobj[0]) eq 'yin', "blessed hash in array");
89 ok(19, ref($$aobj[1]) eq 'yang', "blessed array in array");
90 ok(20, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
91 ok(21, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
93 ok(22, ref($$hobj{'hash'}) eq 'yin', "blessed hash in hash");
94 ok(23, ref($$hobj{'array'}) eq 'yang', "blessed array in hash");
95 ok(24, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
[all …]
/dports/lang/perl5.30/perl-5.30.3/dist/threads-shared/t/
H A 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");
88 ok(18, ref($$aobj[0]) eq 'yin', "blessed hash in array");
89 ok(19, ref($$aobj[1]) eq 'yang', "blessed array in array");
90 ok(20, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
91 ok(21, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
93 ok(22, ref($$hobj{'hash'}) eq 'yin', "blessed hash in hash");
94 ok(23, ref($$hobj{'array'}) eq 'yang', "blessed array in hash");
95 ok(24, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
[all …]
/dports/lang/perl5.32/perl-5.32.1/dist/threads-shared/t/
H A 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");
88 ok(18, ref($$aobj[0]) eq 'yin', "blessed hash in array");
89 ok(19, ref($$aobj[1]) eq 'yang', "blessed array in array");
90 ok(20, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
91 ok(21, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
93 ok(22, ref($$hobj{'hash'}) eq 'yin', "blessed hash in hash");
94 ok(23, ref($$hobj{'array'}) eq 'yang', "blessed array in hash");
95 ok(24, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
[all …]
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/dist/threads-shared/t/
H A 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");
88 ok(18, ref($$aobj[0]) eq 'yin', "blessed hash in array");
89 ok(19, ref($$aobj[1]) eq 'yang', "blessed array in array");
90 ok(20, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
91 ok(21, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
93 ok(22, ref($$hobj{'hash'}) eq 'yin', "blessed hash in hash");
94 ok(23, ref($$hobj{'array'}) eq 'yang', "blessed array in hash");
95 ok(24, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
[all …]
/dports/devel/p5-threads-shared/threads-shared-1.59/t/
H A 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");
88 ok(18, ref($$aobj[0]) eq 'yin', "blessed hash in array");
89 ok(19, ref($$aobj[1]) eq 'yang', "blessed array in array");
90 ok(20, ref($$aobj[2]) eq 'baz', "blessed scalar in array");
91 ok(21, ${$$aobj[2]} eq '3', "blessed scalar in array contents");
93 ok(22, ref($$hobj{'hash'}) eq 'yin', "blessed hash in hash");
94 ok(23, ref($$hobj{'array'}) eq 'yang', "blessed array in hash");
95 ok(24, ref($$hobj{'scalar'}) eq 'baz', "blessed scalar in hash");
[all …]
/dports/devel/p5-Mock-Quick/Mock-Quick-1.111/lib/Mock/Quick/
H A DUtil.pm35 my $class = blessed( $self );
54 && blessed( $self->{ $name })
55 && blessed( $self->{ $name })->isa( 'Mock::Quick::Method' );
58 if blessed( $_[0] ) && blessed( $_[0] )->isa( 'Mock::Quick::Method' );
79 goto &$block unless blessed( $_[0] );
92 goto &$block if blessed( $_[0] );
107 goto &{ $alts{obj }} if blessed( $_[0] );
/dports/devel/p5-Scalar-Does/Scalar-Does-0.203/lib/IO/
H A DDetect.pm64 return unless blessed $object;
113 return true if blessed $fh && $fh->DOES('IO::Handle');
114 return true if blessed $fh && $fh->DOES('FileHandle');
115 return true if blessed $fh && $fh->DOES('IO::All');
128 return true if blessed $f && $f->DOES('IO::All');
129 return true if blessed $f && $f->DOES('Path::Class::Entity');
131 if blessed $f && overload::Method($f, q[""]);
140 return $f if blessed $f && $f->DOES('URI::file');
141 return URI::file->new($f->uri) if blessed $f && $f->DOES('RDF::Trine::Node::Resource');
194 if (blessed $proto and $proto->isa(__PACKAGE__))
/dports/devel/p5-Test-Deep/Test-Deep-1.130/t/
H A Dblessed.t11 cmp_deeply($b, blessed("class"));
22 cmp_deeply($b, blessed("other"));
27 Compared blessed(\$data)
39 cmp_deeply([], blessed());
50 cmp_deeply([], blessed("class"));
55 Compared blessed(\$data)
/dports/devel/p5-Mouse/Mouse-v2.5.10/t/030_roles/
H A D010_run_time_role_composition.t55 isnt(blessed($obj), 'My::Class', '... but it is no longer blessed into My::Class');
70 is(blessed($obj), blessed($obj2), '... they share the same anon-class/role thing');
85 isnt(blessed($obj), blessed($obj2), '... they no longer share the same anon-class/role thing');
102 is(blessed($obj), blessed($obj2), '... they share the same anon-class/role thing again');
/dports/devel/p5-Util-Any/Util-Any-0.25/t/
H A D02-util-func-scalar.t3 use Util::Any {Scalar => [qw/blessed weaken/]};
7 ok(defined &blessed , 'blessed');
9 ok(blessed $hoge, "blessed test");
11 foreach (grep {$_ ne 'weaken' and $_ ne 'blessed'} @Scalar::Util::EXPORT_OK) {
/dports/www/p5-Test-LWP-UserAgent/Test-LWP-UserAgent-0.030/lib/Test/LWP/
H A DUserAgent.pm50 if (not defined $response and blessed $self)
83 if (blessed $self)
99 @{ blessed($self) ? $self->{__response_map} : \@response_map },
110 if (blessed $self)
140 if (blessed $self)
157 return blessed($self)
167 return blessed($self)
185 return blessed $self
190 return $self->{__network_fallback} = $value if blessed $self;
329 return sub { $self->SUPER::send_request($_[0]) } if blessed $self;
[all …]
/dports/net/p5-URI-SmartURI/URI-SmartURI-0.032/lib/URI/
H A DSmartURI.pm95 bless $self, $class->_make_uri_class(blessed $self->{obj}, 1);
112 bless $self, $class->_make_uri_class(blessed $self->{obj}, 1);
129 bless $self, $class->_make_uri_class(blessed $self->{obj}, 1);
197 $self = blessed $self ? $self : __PACKAGE__->new($self);
199 return $self->obj->eq(ref $other eq blessed $self ? $other->obj : $other);
223 return if ! blessed $self || ! blessed $self->obj
229 my $sub = blessed($self)."::$method";
440 my @res = map { blessed($_) && blessed($_) =~ /^URI::/ ?
446 $class->_make_uri_class(blessed $_, 1)
462 my @res = map { blessed $_ && $_->isa($class) ? $_->{obj} : $_ } @_;
/dports/devel/p5-Data-Perl/Data-Perl-0.002011/lib/Data/Perl/Role/Collection/
H A DHash.pm21 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
37 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
44 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
52 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
64 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
72 blessed($self) ? use_package_optimistically($self->_array_class)->new(@res) : @res;
105 sub shallow_clone { blessed($_[0]) ? bless({%{$_[0]}}, ref $_[0]) : {%{$_[0]}} }
/dports/lang/perl5.34/perl-5.34.0/cpan/Test-Simple/lib/Test2/API/
H A 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)
/dports/games/xnethack/xNetHack-xnh6.1/test/
H A Dtestwish.lua10 …["5 +3 blessed silver daggers"] = { otyp_name = "dagger", blessed = 1, cursed = 0, spe = 3, quan =…
16 ["potion of holy water"] = { otyp_name = "water", oclass = "!", blessed = 1, cursed = 0 },
17 ["potion of unholy water"] = { otyp_name = "water", oclass = "!", blessed = 0, cursed = 1 },
18 …grey dragon scales"] = { otyp_name = "gray dragon scales", oclass = "[", blessed = 0, cursed = 1, …
20 …["uncursed magic marker (11)"] = { otyp_name = "magic marker", blessed = 0, cursed = 0, spe = 11 },
39 …["blessed tin of spinach"] = { otyp_name = "tin", oclass = "%", corpsenm = -1, spe = 1, blessed = …
58 …speed boots"] = { otyp_name = "speed boots", oclass = "[", oerodeproof = 1, blessed = 1, spe = 2 },
73 …["blessed historic statue of woodland-elf named Foo"] = { otyp_name = "statue", blessed = 1, histo…
74 …["blessed figurine of a ki-rin"] = { otyp_name = "figurine", blessed = 1, corpsenm_name = "ki-rin"…
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/Test-Simple/lib/Test2/API/
H A 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)
/dports/textproc/p5-RDF-Trine/RDF-Trine-1.019/lib/RDF/Trine/
H A DNode.pm69 return (blessed($self) and $self->isa('RDF::Trine::Node'));
80 return (blessed($self) and $self->isa('RDF::Trine::Node::Nil'));
91 return (blessed($self) and $self->isa('RDF::Trine::Node::Blank'));
102 return (blessed($self) and $self->isa('RDF::Trine::Node::Resource'));
113 return (blessed($self) and $self->isa('RDF::Trine::Node::Literal'));
124 return (blessed($self) and $self->isa('RDF::Trine::Node::Variable'));
164 return 0 unless (blessed($node));
185 return -1 unless blessed($a);
186 return 1 unless blessed($b);
/dports/devel/p5-Test-Simple/Test-Simple-1.302188/lib/Test2/API/
H A 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)

12345678910>>...188