| line |
true |
false |
branch |
|
38
|
0 |
0 |
if &$_(@_) |
|
49
|
0 |
0 |
defined $_[1] ? : |
|
55
|
0 |
0 |
$_[0][0]->($_[1]) ? : |
|
61
|
0 |
0 |
$_[0][0]->($_[1]) ? : |
|
67
|
0 |
0 |
$_[0][0]->($_[1]) ? : |
|
74
|
0 |
0 |
if (ref $library eq "ARRAY") |
|
80
|
0 |
0 |
if ($library) |
|
82
|
0 |
0 |
unless eval "require $library; 1" |
|
84
|
0 |
0 |
if $type |
|
95
|
0 |
0 |
if $_[1] eq "Type::API::Constraint" |
|
96
|
0 |
0 |
if $_[1] eq "Type::Library::Compiler::TypeConstraint" |
|
136
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
155
|
0 |
0 |
if not ref $_[0] |
|
159
|
0 |
0 |
!ref($_[0]) && (!defined($_[0]) || $_[0] eq '' || $_[0] eq '0' || $_[0] eq '1') ? : |
|
178
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
182
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card') if &Scalar::Util::blessed($_[0])
} ? : |
|
201
|
0 |
0 |
if &Scalar::Util::blessed($i) |
|
|
0 |
0 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
|
0 |
0 |
if (ref $_[0] eq "ARRAY") |
|
205
|
0 |
0 |
if &Scalar::Util::blessed($i) |
|
|
0 |
0 |
unless do {
$i->isa("Acme::Mitey::Cards::Card") if &Scalar::Util::blessed($i)
} |
|
|
0 |
0 |
if (ref $_[0] eq "ARRAY") |
|
|
0 |
0 |
do {
if (ref $_[0] eq 'ARRAY') {
my $ok = 1;
foreach my $i (@{$_[0];}) {
$ok = 0, last unless do {
$i->isa('Acme::Mitey::Cards::Card') if &Scalar::Util::blessed($i)
};
} ;
$ok;
}
} ? : |
|
224
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
if do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} and $_[0] >= 1 |
|
228
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] >= 1 && $_[0] <= 10 ? : |
|
247
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
251
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
do {
$_[0] =~ /\A(?:(?:Jack|King|Queen))\z/ if defined $_[0] and not ref $_[0]
} ? : |
|
272
|
0 |
0 |
if ref $_[0] |
|
273
|
0 |
0 |
unless $_[0] |
|
274
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
276
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
277
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
282
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
289
|
0 |
0 |
do {
sub {
no strict 'refs';
return !1 if ref $_[0];
return !1 unless $_[0];
return !1 if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne 'SCALAR';
my $stash = \%{"$_[0]::";};
return 1 if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{'ARRAY'} and @{$_[0] . '::ISA';};
return 1 if exists $stash->{'VERSION'};
foreach my $globref (values %$stash) {
return 1 if ref \$globref eq 'GLOB' ? *{$globref;}{'CODE'} : ref $globref;
} ;
return !1;
}
->(do {
my $tmp = $_[0]
})
} ? : |
|
291
|
0 |
0 |
if ref $_[0] |
|
292
|
0 |
0 |
unless $_[0] |
|
293
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
295
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
296
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
301
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
327
|
0 |
0 |
ref $_[0] eq 'CODE' ? : |
|
350
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
373
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
392
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
396
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Deck') if &Scalar::Util::blessed($_[0])
} ? : |
|
419
|
0 |
0 |
defined $_[0] ? : |
|
442
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
461
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
465
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} ? : |
|
484
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
488
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card::Face') if &Scalar::Util::blessed($_[0])
} ? : |
|
507
|
0 |
0 |
unless ref $_[0] and &Scalar::Util::openhandle($_[0]) |
|
511
|
0 |
0 |
unless ref $_[0] and &Scalar::Util::openhandle($_[0]) |
|
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0]) and $_[0]->isa('IO::Handle') unless ref $_[0] and &Scalar::Util::openhandle($_[0])
} ? : |
|
534
|
0 |
0 |
ref $_[0] eq 'GLOB' ? : |
|
553
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
557
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Hand') if &Scalar::Util::blessed($_[0])
} ? : |
|
580
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
603
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
626
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
645
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
649
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} ? : |
|
668
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
672
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
} ? : |
|
714
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
718
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card::Joker') if &Scalar::Util::blessed($_[0])
} ? : |
|
737
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
741
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
} ? : |
|
760
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
|
0 |
0 |
if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
} |
|
|
0 |
0 |
if (do {
length $_[0] > 0 if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
}
}) |
|
764
|
0 |
0 |
do {
length $_[0] > 0 if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} and length $_[0] <= 255
}
} && do {
not $_[0] =~ /\p{Upper}/ms
} ? : |
|
783
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
|
0 |
0 |
if (do {
length $_[0] > 0 if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}
}) |
|
787
|
0 |
0 |
do {
length $_[0] > 0 if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
}
} && do {
not $_[0] =~ /\p{Upper}/ms
} ? : |
|
810
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
852
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
if do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} |
|
856
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] < 0 ? : |
|
875
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
if do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} |
|
879
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] < 0 ? : |
|
898
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
if do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} |
|
902
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] <= 0 ? : |
|
921
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
if do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} |
|
925
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] <= 0 ? : |
|
944
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
|
0 |
0 |
if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
} |
|
948
|
0 |
0 |
do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} and length $_[0] <= 255
} && length $_[0] > 0 ? : |
|
967
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
971
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} && length $_[0] > 0 ? : |
|
990
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
994
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
} ? : |
|
1013
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
1017
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
} ? : |
|
1036
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1040
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card::Numeric') if &Scalar::Util::blessed($_[0])
} ? : |
|
1059
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
|
0 |
0 |
if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
} |
|
1063
|
0 |
0 |
do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} and length $_[0] <= 255
} && $_[0] =~ /^[0-9]+$/ ? : |
|
1086
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
1105
|
0 |
0 |
unless ref \$inner->[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $inner->[0]) |
|
|
0 |
0 |
unless ref $inner eq "ARRAY" and @$inner == 2 and do {
if (defined $inner->[0]) {
ref \(my $val = $inner->[0]) eq "SCALAR" unless ref \$inner->[0] eq "SCALAR";
}
} |
|
|
0 |
0 |
if (ref $_[0] eq "ARRAY") |
|
1109
|
0 |
0 |
ref $_[0] eq 'ARRAY' && do {
my $ok = 1;
foreach my $inner (@{$_[0];}) {
no warnings;
$ok = 0 and last unless ref $inner eq 'ARRAY' and @$inner == 2 and do {
if (defined $inner->[0]) {
ref \(my $val = $inner->[0]) eq 'SCALAR' unless ref \$inner->[0] eq 'SCALAR';
}
};
} ;
$ok
} ? : |
|
1151
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1155
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
overload::Overloaded($_[0]) if &Scalar::Util::blessed($_[0])
} ? : |
|
1174
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
|
0 |
0 |
if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
} |
|
1178
|
0 |
0 |
do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} and length $_[0] <= 255
} && length $_[0] > 3 ? : |
|
1197
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
if do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} |
|
1201
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] > 0 ? : |
|
1220
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
if do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} |
|
1224
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] > 0 ? : |
|
1243
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
if do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} |
|
1247
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] >= 0 ? : |
|
1266
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
|
0 |
0 |
if do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} |
|
1270
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] >= 0 ? : |
|
1293
|
0 |
0 |
!!ref($_[0]) ? : |
|
1312
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1316
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0]) and $_[0]->isa('Regexp') unless ref $_[0] and not !&re::is_regexp($_[0])
} ? : |
|
1337
|
0 |
0 |
if ref $_[0] |
|
1338
|
0 |
0 |
unless $_[0] |
|
1339
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
1341
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
1342
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
1347
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
1350
|
0 |
0 |
if sub {
no strict 'refs';
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if ref $_[0];
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
unless $_[0];
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR";
my $stash = \%{"$_[0]::";};
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";};
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if exists $stash->{'VERSION'};
foreach my $globref (values %$stash) {
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref;
} ;
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
;
}
->(do {
my $tmp = $_[0]
}) |
|
1354
|
0 |
0 |
do {
not $_[0]->can('new') if sub {
no strict 'refs';
return !1 if ref $_[0];
return !1 unless $_[0];
return !1 if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne 'SCALAR';
my $stash = \%{"$_[0]::";};
return 1 if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{'ARRAY'} and @{$_[0] . '::ISA';};
return 1 if exists $stash->{'VERSION'};
foreach my $globref (values %$stash) {
return 1 if ref \$globref eq 'GLOB' ? *{$globref;}{'CODE'} : ref $globref;
} ;
return !1;
}
->(do {
my $tmp = $_[0]
})
} ? : |
|
1356
|
0 |
0 |
if ref $_[0] |
|
1357
|
0 |
0 |
unless $_[0] |
|
1358
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
1360
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
1361
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
1366
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
1369
|
0 |
0 |
if sub {
no strict 'refs';
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if ref $_[0];
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
unless $_[0];
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR";
my $stash = \%{"$_[0]::";};
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";};
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if exists $stash->{'VERSION'};
foreach my $globref (values %$stash) {
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref;
} ;
return Deparse error: Can't locate object method "object_2svref" via package "B::SPECIAL" at /usr/local/lib/perl5/5.26.1/B/Deparse.pm line 5018.
;
}
->(do {
my $tmp = $_[0]
}) |
|
1388
|
0 |
0 |
unless ref $_[0] eq "SCALAR" |
|
1392
|
0 |
0 |
ref $_[0] eq 'SCALAR' || ref $_[0] eq 'REF' ? : |
|
1411
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1415
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Set') if &Scalar::Util::blessed($_[0])
} ? : |
|
1434
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
1438
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} && length $_[0] <= 255 && !($_[0] =~ /\n/) ? : |
|
1457
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
|
0 |
0 |
if do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} and $_[0] >= -9 |
|
1461
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] >= -9 && $_[0] <= 9 ? : |
|
1480
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
1484
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} ? : |
|
1503
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
1507
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} ? : |
|
1526
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
1530
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} ? : |
|
1549
|
0 |
0 |
if defined $val and not ref $val |
|
1558
|
0 |
0 |
if defined $val and not ref $val |
|
|
0 |
0 |
do {
my $val = $_[0];
$val =~ /\A[+-]?[0-9]+\z/ or $val =~ /\A(?:[+-]?) # matches optional +- in the beginning
(?=[0-9]|\.[0-9]) # matches previous +- only if there is something like 3 or .3
[0-9]* # matches 0-9 zero or more times
(?:\.[0-9]+)? # matches optional .89 or nothing
(?:[Ee](?:[+-]?[0-9]+))? # matches E1 or e1 or e-1 or e+1 etc
\z/x if defined $val and not ref $val
} ? : |
|
1582
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
|
0 |
0 |
if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
} and length $_[0] > 7 |
|
1586
|
0 |
0 |
do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} and length $_[0] <= 255
} && length $_[0] > 7 && $_[0] =~ /[^a-zA-Z]/ ? : |
|
1605
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1609
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Suit') if &Scalar::Util::blessed($_[0])
} ? : |
|
1632
|
0 |
0 |
do {
not !ref($_[0]) || !tied(&Scalar::Util::reftype($_[0]) eq 'HASH' ? %{$_[0];} : (&Scalar::Util::reftype($_[0]) eq 'ARRAY' ? @{$_[0];} : (&Scalar::Util::reftype($_[0]) =~ /^(SCALAR|REF)$/ ? ${$_[0];} : undef)))
} ? : |
|
1655
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
1678
|
0 |
0 |
!defined($_[0]) ? : |
|
1697
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255 |
|
|
0 |
0 |
if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
} |
|
|
0 |
0 |
if (do {
length $_[0] > 0 if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} and length $_[0] <= 255
}
}) |
|
1701
|
0 |
0 |
do {
length $_[0] > 0 if do {
not $_[0] =~ /\n/ if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} and length $_[0] <= 255
}
} && do {
not $_[0] =~ /\p{Lower}/ms
} ? : |
|
1720
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
|
0 |
0 |
if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
} |
|
|
0 |
0 |
if (do {
length $_[0] > 0 if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR";
}
}
}) |
|
1724
|
0 |
0 |
do {
length $_[0] > 0 if do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
}
} && do {
not $_[0] =~ /\p{Lower}/ms
} ? : |
|
1743
|
0 |
0 |
if defined $_[0] |
|
1747
|
0 |
0 |
defined $_[0] && !ref($_[0]) ? : |