/dports/databases/p5-DBM-Deep/DBM-Deep-2.0016/t/ |
H A D | 24_autobless.t | 27 $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 D | TypeDecorator.pm | 24 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 D | TestPlugin.pm | 67 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 D | test_core.py | 30 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 D | test_keyboard.py | 88 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 D | SUPER.pm | 20 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 D | More.pm | 484 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 D | blessed.t | 70 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 D | blessed.t | 70 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 D | blessed.t | 70 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 D | blessed.t | 70 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 D | blessed.t | 70 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 D | Util.pm | 35 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 D | Detect.pm | 64 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 D | blessed.t | 11 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 D | 010_run_time_role_composition.t | 55 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 D | 02-util-func-scalar.t | 3 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 D | UserAgent.pm | 50 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 D | SmartURI.pm | 95 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 D | Hash.pm | 21 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 D | InterceptResult.pm | 27 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 D | testwish.lua | 10 …["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 D | InterceptResult.pm | 27 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 D | Node.pm | 69 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 D | InterceptResult.pm | 27 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)
|