| line |
true |
false |
branch |
|
39
|
0 |
0 |
if &$_(@_) |
|
50
|
0 |
0 |
defined $_[1] ? : |
|
56
|
0 |
0 |
$_[0][0]->($_[1]) ? : |
|
62
|
0 |
0 |
$_[0][0]->($_[1]) ? : |
|
68
|
0 |
0 |
$_[0][0]->($_[1]) ? : |
|
75
|
0 |
0 |
if (ref $library eq "ARRAY") |
|
82
|
0 |
0 |
if ($library) |
|
84
|
0 |
0 |
unless eval "require $library; 1" |
|
86
|
0 |
0 |
if $type |
|
97
|
0 |
0 |
if $_[1] eq "Type::API::Constraint" |
|
98
|
0 |
0 |
if $_[1] eq "Type::Library::Compiler::TypeConstraint" |
|
138
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
157
|
0 |
0 |
if not ref $_[0] |
|
161
|
0 |
0 |
!ref($_[0]) && (!defined($_[0]) || $_[0] eq '' || $_[0] eq '0' || $_[0] eq '1') ? : |
|
180
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
184
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card') if &Scalar::Util::blessed($_[0])
} ? : |
|
203
|
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") |
|
207
|
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;
}
} ? : |
|
226
|
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 |
|
230
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] >= 1 && $_[0] <= 10 ? : |
|
249
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
253
|
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]
} ? : |
|
274
|
0 |
0 |
if ref $_[0] |
|
275
|
0 |
0 |
unless $_[0] |
|
276
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
278
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
279
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
284
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
291
|
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]
})
} ? : |
|
293
|
0 |
0 |
if ref $_[0] |
|
294
|
0 |
0 |
unless $_[0] |
|
295
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
297
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
298
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
303
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
329
|
0 |
0 |
ref $_[0] eq 'CODE' ? : |
|
352
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
375
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
394
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
398
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Deck') if &Scalar::Util::blessed($_[0])
} ? : |
|
421
|
0 |
0 |
defined $_[0] ? : |
|
444
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
463
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
467
|
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';
}
} ? : |
|
486
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
490
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card::Face') if &Scalar::Util::blessed($_[0])
} ? : |
|
509
|
0 |
0 |
unless ref $_[0] and &Scalar::Util::openhandle($_[0]) |
|
513
|
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])
} ? : |
|
536
|
0 |
0 |
ref $_[0] eq 'GLOB' ? : |
|
555
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
559
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Hand') if &Scalar::Util::blessed($_[0])
} ? : |
|
582
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
605
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
628
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
647
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
651
|
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
} ? : |
|
670
|
0 |
0 |
if defined $tmp and not ref $tmp |
|
674
|
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
} ? : |
|
716
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
720
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card::Joker') if &Scalar::Util::blessed($_[0])
} ? : |
|
739
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
743
|
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]
} ? : |
|
762
|
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
}
}) |
|
766
|
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
} ? : |
|
785
|
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";
}
}
}) |
|
789
|
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
} ? : |
|
812
|
0 |
0 |
ref $_[0] eq 'HASH' ? : |
|
854
|
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
}
} |
|
858
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] < 0 ? : |
|
877
|
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]
}
} |
|
881
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] < 0 ? : |
|
900
|
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
}
} |
|
904
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] <= 0 ? : |
|
923
|
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]
}
} |
|
927
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] <= 0 ? : |
|
946
|
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
} |
|
950
|
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 ? : |
|
969
|
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";
}
} |
|
973
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} && length $_[0] > 0 ? : |
|
992
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
996
|
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]
} ? : |
|
1015
|
0 |
0 |
if defined $_[0] and not ref $_[0] |
|
1019
|
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]
} ? : |
|
1038
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1042
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Card::Numeric') if &Scalar::Util::blessed($_[0])
} ? : |
|
1061
|
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
} |
|
1065
|
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]+$/ ? : |
|
1088
|
0 |
0 |
do {
&Scalar::Util::blessed($_[0])
} ? : |
|
1107
|
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") |
|
1111
|
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
} ? : |
|
1153
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1157
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
overload::Overloaded($_[0]) if &Scalar::Util::blessed($_[0])
} ? : |
|
1176
|
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
} |
|
1180
|
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 ? : |
|
1199
|
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
}
} |
|
1203
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] > 0 ? : |
|
1222
|
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]
}
} |
|
1226
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] > 0 ? : |
|
1245
|
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
}
} |
|
1249
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] >= 0 ? : |
|
1268
|
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]
}
} |
|
1272
|
0 |
0 |
do {
do {
&Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0]
}
} && $_[0] >= 0 ? : |
|
1295
|
0 |
0 |
!!ref($_[0]) ? : |
|
1314
|
0 |
0 |
unless ref $_[0] and not !&re::is_regexp($_[0]) |
|
1318
|
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])
} ? : |
|
1339
|
0 |
0 |
if ref $_[0] |
|
1340
|
0 |
0 |
unless $_[0] |
|
1341
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
1343
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
1344
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
1349
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
1352
|
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]
}) |
|
1356
|
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]
})
} ? : |
|
1358
|
0 |
0 |
if ref $_[0] |
|
1359
|
0 |
0 |
unless $_[0] |
|
1360
|
0 |
0 |
if ref do {
my $tmpstr = $_[0];
\$tmpstr
} ne "SCALAR" |
|
1362
|
0 |
0 |
if exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";} |
|
1363
|
0 |
0 |
if exists $stash->{'VERSION'} |
|
1368
|
0 |
0 |
ref \$globref eq 'GLOB' ? : |
|
|
0 |
0 |
if ref \$globref eq "GLOB" ? *{$globref;}{"CODE"} : ref $globref |
|
1371
|
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]
}) |
|
1390
|
0 |
0 |
unless ref $_[0] eq "SCALAR" |
|
1394
|
0 |
0 |
ref $_[0] eq 'SCALAR' || ref $_[0] eq 'REF' ? : |
|
1413
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1417
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Set') if &Scalar::Util::blessed($_[0])
} ? : |
|
1436
|
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 |
|
1440
|
0 |
0 |
do {
if (defined $_[0]) {
ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR';
}
} && length $_[0] <= 255 && !($_[0] =~ /\n/) ? : |
|
1459
|
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 |
|
1463
|
0 |
0 |
do {
do {
my $tmp = $_[0];
$tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp
}
} && $_[0] >= -9 && $_[0] <= 9 ? : |
|
1505
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
1509
|
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';
}
} ? : |
|
1528
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
1532
|
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';
}
} ? : |
|
1551
|
0 |
0 |
unless ref \$_[0] eq "SCALAR" |
|
|
0 |
0 |
if (defined $_[0]) |
|
1555
|
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';
}
} ? : |
|
1574
|
0 |
0 |
if defined $val and not ref $val |
|
1583
|
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
} ? : |
|
1607
|
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 |
|
1611
|
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]/ ? : |
|
1630
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
1634
|
0 |
0 |
if &Scalar::Util::blessed($_[0]) |
|
|
0 |
0 |
do {
$_[0]->isa('Acme::Mitey::Cards::Suit') if &Scalar::Util::blessed($_[0])
} ? : |
|
1657
|
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)))
} ? : |
|
1680
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
1703
|
0 |
0 |
!defined($_[0]) ? : |
|
1722
|
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
}
}) |
|
1726
|
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
} ? : |
|
1745
|
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";
}
}
}) |
|
1749
|
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
} ? : |
|
1768
|
0 |
0 |
if defined $_[0] |
|
1772
|
0 |
0 |
defined $_[0] && !ref($_[0]) ? : |