Condition Coverage

blib/lib/Acme/Mitey/Cards/Types.pm
Criterion Covered Total %
condition 15 387 3.8


and 2 conditions

line l !l condition
278 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}
297 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}
1107 0 0 $ok = 0 and last
1343 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}
1362 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}

and 3 conditions

line !l l&&!r l&&r condition
161 0 0 0 !ref($_[0]) && (!defined($_[0]) || $_[0] eq '' || $_[0] eq '0' || $_[0] eq '1')
226 0 0 0 defined $tmp and not ref $tmp
0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } and $_[0] >= 1
230 0 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 0 defined $_[0] and not ref $_[0]
253 0 0 0 defined $_[0] and not ref $_[0]
278 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
297 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
509 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("IO::Handle")
0 0 0 ref $_[0] and &Scalar::Util::openhandle($_[0])
513 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("IO::Handle")
0 0 0 ref $_[0] and &Scalar::Util::openhandle($_[0])
647 0 0 0 defined $tmp and not ref $tmp
651 0 0 0 defined $tmp and not ref $tmp
670 0 0 0 defined $tmp and not ref $tmp
674 0 0 0 defined $tmp and not ref $tmp
739 0 0 0 defined $_[0] and not ref $_[0]
743 0 0 0 defined $_[0] and not ref $_[0]
762 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
766 0 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 }
789 0 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 }
854 0 0 0 defined $tmp and not ref $tmp
858 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] < 0
877 0 0 0 defined $_[0] and not ref $_[0]
881 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] < 0
900 0 0 0 defined $tmp and not ref $tmp
904 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] <= 0
923 0 0 0 defined $_[0] and not ref $_[0]
927 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] <= 0
946 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
950 0 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
973 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR'; } } && length $_[0] > 0
992 0 0 0 defined $_[0] and not ref $_[0]
996 0 0 0 defined $_[0] and not ref $_[0]
1015 0 0 0 defined $_[0] and not ref $_[0]
1019 0 0 0 defined $_[0] and not ref $_[0]
1061 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1065 0 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]+$/
1107 0 0 0 ref $inner eq "ARRAY" and @$inner == 2
0 0 0 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"; } }
1111 0 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 }
1176 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1180 0 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 0 defined $tmp and not ref $tmp
1203 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] > 0
1222 0 0 0 defined $_[0] and not ref $_[0]
1226 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] > 0
1245 0 0 0 defined $tmp and not ref $tmp
1249 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] >= 0
1268 0 0 0 defined $_[0] and not ref $_[0]
1272 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] >= 0
1314 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp")
0 0 0 ref $_[0] and not !&re::is_regexp($_[0])
1318 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp")
0 0 0 ref $_[0] and not !&re::is_regexp($_[0])
1343 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
1362 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
1436 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1440 0 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 0 defined $tmp and not ref $tmp
0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } and $_[0] >= -9
1463 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] >= -9 && $_[0] <= 9
1574 0 0 0 defined $val and not ref $val
1583 0 0 0 defined $val and not ref $val
1607 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
0 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 } and length $_[0] > 7
1611 0 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]/
1722 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1726 0 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 }
1749 0 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 }
1772 0 0 0 defined $_[0] && !ref($_[0])

or 2 conditions

line l !l condition
107 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Any, "Any", "Types::Standard", "Any"], "Acme::Mitey::Cards::Types::TypeConstraint")
130 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ArrayRef, "ArrayRef", "Types::Standard", "ArrayRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
153 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Bool, "Bool", "Types::Standard", "Bool"], "Acme::Mitey::Cards::Types::TypeConstraint")
176 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Card, "Card", "Acme::Mitey::Cards::Types::Source", "Card"], "Acme::Mitey::Cards::Types::TypeConstraint")
199 2 4 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CardArray, "CardArray", "Acme::Mitey::Cards::Types::Source", "CardArray"], "Acme::Mitey::Cards::Types::TypeConstraint")
222 0 3 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CardNumber, "CardNumber", "Acme::Mitey::Cards::Types::Source", "CardNumber"], "Acme::Mitey::Cards::Types::TypeConstraint")
245 0 3 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Character, "Character", "Acme::Mitey::Cards::Types::Source", "Character"], "Acme::Mitey::Cards::Types::TypeConstraint")
268 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ClassName, "ClassName", "Types::Standard", "ClassName"], "Acme::Mitey::Cards::Types::TypeConstraint")
321 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CodeRef, "CodeRef", "Types::Standard", "CodeRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
344 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ConsumerOf, "ConsumerOf", "Types::Standard", "ConsumerOf"], "Acme::Mitey::Cards::Types::TypeConstraint")
367 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CycleTuple, "CycleTuple", "Types::Standard", "CycleTuple"], "Acme::Mitey::Cards::Types::TypeConstraint")
390 0 8 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Deck, "Deck", "Acme::Mitey::Cards::Types::Source", "Deck"], "Acme::Mitey::Cards::Types::TypeConstraint")
413 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Defined, "Defined", "Types::Standard", "Defined"], "Acme::Mitey::Cards::Types::TypeConstraint")
436 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Dict, "Dict", "Types::Standard", "Dict"], "Acme::Mitey::Cards::Types::TypeConstraint")
459 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Enum, "Enum", "Types::Standard", "Enum"], "Acme::Mitey::Cards::Types::TypeConstraint")
482 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_FaceCard, "FaceCard", "Acme::Mitey::Cards::Types::Source", "FaceCard"], "Acme::Mitey::Cards::Types::TypeConstraint")
505 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_FileHandle, "FileHandle", "Types::Standard", "FileHandle"], "Acme::Mitey::Cards::Types::TypeConstraint")
528 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_GlobRef, "GlobRef", "Types::Standard", "GlobRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
551 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Hand, "Hand", "Acme::Mitey::Cards::Types::Source", "Hand"], "Acme::Mitey::Cards::Types::TypeConstraint")
574 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_HasMethods, "HasMethods", "Types::Standard", "HasMethods"], "Acme::Mitey::Cards::Types::TypeConstraint")
597 0 2 $type ||= bless([\&Acme::Mitey::Cards::Types::is_HashRef, "HashRef", "Types::Standard", "HashRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
620 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_InstanceOf, "InstanceOf", "Types::Standard", "InstanceOf"], "Acme::Mitey::Cards::Types::TypeConstraint")
643 2 4 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Int, "Int", "Types::Standard", "Int"], "Acme::Mitey::Cards::Types::TypeConstraint")
666 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_IntRange, "IntRange", "Types::Common::Numeric", "IntRange"], "Acme::Mitey::Cards::Types::TypeConstraint")
689 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Item, "Item", "Types::Standard", "Item"], "Acme::Mitey::Cards::Types::TypeConstraint")
712 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_JokerCard, "JokerCard", "Acme::Mitey::Cards::Types::Source", "JokerCard"], "Acme::Mitey::Cards::Types::TypeConstraint")
735 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_LaxNum, "LaxNum", "Types::Standard", "LaxNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
758 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_LowerCaseSimpleStr, "LowerCaseSimpleStr", "Types::Common::String", "LowerCaseSimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
781 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_LowerCaseStr, "LowerCaseStr", "Types::Common::String", "LowerCaseStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
804 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Map, "Map", "Types::Standard", "Map"], "Acme::Mitey::Cards::Types::TypeConstraint")
827 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Maybe, "Maybe", "Types::Standard", "Maybe"], "Acme::Mitey::Cards::Types::TypeConstraint")
850 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeInt, "NegativeInt", "Types::Common::Numeric", "NegativeInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
873 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeNum, "NegativeNum", "Types::Common::Numeric", "NegativeNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
896 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeOrZeroInt, "NegativeOrZeroInt", "Types::Common::Numeric", "NegativeOrZeroInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
919 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeOrZeroNum, "NegativeOrZeroNum", "Types::Common::Numeric", "NegativeOrZeroNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
942 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NonEmptySimpleStr, "NonEmptySimpleStr", "Types::Common::String", "NonEmptySimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
965 2 5 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NonEmptyStr, "NonEmptyStr", "Types::Common::String", "NonEmptyStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
988 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Num, "Num", "Types::Standard", "Num"], "Acme::Mitey::Cards::Types::TypeConstraint")
1011 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NumRange, "NumRange", "Types::Common::Numeric", "NumRange"], "Acme::Mitey::Cards::Types::TypeConstraint")
1034 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NumericCard, "NumericCard", "Acme::Mitey::Cards::Types::Source", "NumericCard"], "Acme::Mitey::Cards::Types::TypeConstraint")
1057 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NumericCode, "NumericCode", "Types::Common::String", "NumericCode"], "Acme::Mitey::Cards::Types::TypeConstraint")
1080 0 3 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Object, "Object", "Types::Standard", "Object"], "Acme::Mitey::Cards::Types::TypeConstraint")
1103 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_OptList, "OptList", "Types::Standard", "OptList"], "Acme::Mitey::Cards::Types::TypeConstraint")
1126 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Optional, "Optional", "Types::Standard", "Optional"], "Acme::Mitey::Cards::Types::TypeConstraint")
1149 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Overload, "Overload", "Types::Standard", "Overload"], "Acme::Mitey::Cards::Types::TypeConstraint")
1172 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Password, "Password", "Types::Common::String", "Password"], "Acme::Mitey::Cards::Types::TypeConstraint")
1195 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveInt, "PositiveInt", "Types::Common::Numeric", "PositiveInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
1218 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveNum, "PositiveNum", "Types::Common::Numeric", "PositiveNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
1241 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveOrZeroInt, "PositiveOrZeroInt", "Types::Common::Numeric", "PositiveOrZeroInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
1264 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveOrZeroNum, "PositiveOrZeroNum", "Types::Common::Numeric", "PositiveOrZeroNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
1287 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Ref, "Ref", "Types::Standard", "Ref"], "Acme::Mitey::Cards::Types::TypeConstraint")
1310 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_RegexpRef, "RegexpRef", "Types::Standard", "RegexpRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
1333 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_RoleName, "RoleName", "Types::Standard", "RoleName"], "Acme::Mitey::Cards::Types::TypeConstraint")
1386 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ScalarRef, "ScalarRef", "Types::Standard", "ScalarRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
1409 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Set, "Set", "Acme::Mitey::Cards::Types::Source", "Set"], "Acme::Mitey::Cards::Types::TypeConstraint")
1432 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_SimpleStr, "SimpleStr", "Types::Common::String", "SimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
1455 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_SingleDigit, "SingleDigit", "Types::Common::Numeric", "SingleDigit"], "Acme::Mitey::Cards::Types::TypeConstraint")
1478 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Slurpy, "Slurpy", "Types::Standard", "Slurpy"], "Acme::Mitey::Cards::Types::TypeConstraint")
1501 12 9 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Str, "Str", "Types::Standard", "Str"], "Acme::Mitey::Cards::Types::TypeConstraint")
1524 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrLength, "StrLength", "Types::Common::String", "StrLength"], "Acme::Mitey::Cards::Types::TypeConstraint")
1547 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrMatch, "StrMatch", "Types::Standard", "StrMatch"], "Acme::Mitey::Cards::Types::TypeConstraint")
1570 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrictNum, "StrictNum", "Types::Standard", "StrictNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
1603 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrongPassword, "StrongPassword", "Types::Common::String", "StrongPassword"], "Acme::Mitey::Cards::Types::TypeConstraint")
1626 2 4 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Suit, "Suit", "Acme::Mitey::Cards::Types::Source", "Suit"], "Acme::Mitey::Cards::Types::TypeConstraint")
1649 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Tied, "Tied", "Types::Standard", "Tied"], "Acme::Mitey::Cards::Types::TypeConstraint")
1672 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Tuple, "Tuple", "Types::Standard", "Tuple"], "Acme::Mitey::Cards::Types::TypeConstraint")
1695 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Undef, "Undef", "Types::Standard", "Undef"], "Acme::Mitey::Cards::Types::TypeConstraint")
1718 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_UpperCaseSimpleStr, "UpperCaseSimpleStr", "Types::Common::String", "UpperCaseSimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
1741 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_UpperCaseStr, "UpperCaseStr", "Types::Common::String", "UpperCaseStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
1764 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Value, "Value", "Types::Standard", "Value"], "Acme::Mitey::Cards::Types::TypeConstraint")

or 3 conditions

line l !l&&r !l&&!r condition
157 0 0 0 not defined $_[0] or $_[0] eq ""
0 0 0 not defined $_[0] or $_[0] eq "" or $_[0] eq 0
0 0 0 not defined $_[0] or $_[0] eq "" or $_[0] eq 0 or $_[0] eq 1
1394 0 0 0 ref $_[0] eq 'SCALAR' || ref $_[0] eq 'REF'
1574 0 0 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
1583 0 0 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
1653 0 0 0 !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)))
1657 0 0 0 !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)))