Condition Coverage

blib/lib/Acme/Mitey/Cards/Types.pm
Criterion Covered Total %
condition 15 385 3.9


and 2 conditions

line l !l condition
276 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}
295 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}
1105 0 0 $ok = 0 and last
1341 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}
1360 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"}

and 3 conditions

line !l l&&!r l&&r condition
159 0 0 0 !ref($_[0]) && (!defined($_[0]) || $_[0] eq '' || $_[0] eq '0' || $_[0] eq '1')
224 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
228 0 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 0 defined $_[0] and not ref $_[0]
251 0 0 0 defined $_[0] and not ref $_[0]
276 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
295 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
507 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("IO::Handle")
0 0 0 ref $_[0] and &Scalar::Util::openhandle($_[0])
511 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("IO::Handle")
0 0 0 ref $_[0] and &Scalar::Util::openhandle($_[0])
645 0 0 0 defined $tmp and not ref $tmp
649 0 0 0 defined $tmp and not ref $tmp
668 0 0 0 defined $tmp and not ref $tmp
672 0 0 0 defined $tmp and not ref $tmp
737 0 0 0 defined $_[0] and not ref $_[0]
741 0 0 0 defined $_[0] and not ref $_[0]
760 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
764 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 }
787 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 }
852 0 0 0 defined $tmp and not ref $tmp
856 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] < 0
875 0 0 0 defined $_[0] and not ref $_[0]
879 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] < 0
898 0 0 0 defined $tmp and not ref $tmp
902 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] <= 0
921 0 0 0 defined $_[0] and not ref $_[0]
925 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] <= 0
944 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
948 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
971 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq 'SCALAR' unless ref \$_[0] eq 'SCALAR'; } } && length $_[0] > 0
990 0 0 0 defined $_[0] and not ref $_[0]
994 0 0 0 defined $_[0] and not ref $_[0]
1013 0 0 0 defined $_[0] and not ref $_[0]
1017 0 0 0 defined $_[0] and not ref $_[0]
1059 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1063 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]+$/
1105 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"; } }
1109 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 }
1174 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1178 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
1197 0 0 0 defined $tmp and not ref $tmp
1201 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] > 0
1220 0 0 0 defined $_[0] and not ref $_[0]
1224 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] > 0
1243 0 0 0 defined $tmp and not ref $tmp
1247 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] >= 0
1266 0 0 0 defined $_[0] and not ref $_[0]
1270 0 0 0 do { do { &Scalar::Util::looks_like_number($_[0]) if defined $_[0] and not ref $_[0] } } && $_[0] >= 0
1312 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp")
0 0 0 ref $_[0] and not !&re::is_regexp($_[0])
1316 0 0 0 &Scalar::Util::blessed($_[0]) and $_[0]->isa("Regexp")
0 0 0 ref $_[0] and not !&re::is_regexp($_[0])
1341 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
1360 0 0 0 exists $stash->{'ISA'} and *{$stash->{'ISA'};}{"ARRAY"} and @{$_[0] . "::ISA";}
1434 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1438 0 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 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
1461 0 0 0 do { do { my $tmp = $_[0]; $tmp =~ /\A-?[0-9]+\z/ if defined $tmp and not ref $tmp } } && $_[0] >= -9 && $_[0] <= 9
1549 0 0 0 defined $val and not ref $val
1558 0 0 0 defined $val and not ref $val
1582 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
1586 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]/
1697 0 0 0 do { if (defined $_[0]) { ref \(my $val = $_[0]) eq "SCALAR" unless ref \$_[0] eq "SCALAR"; } } and length $_[0] <= 255
1701 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 }
1724 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 }
1747 0 0 0 defined $_[0] && !ref($_[0])

or 2 conditions

line l !l condition
105 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Any, "Any", "Types::Standard", "Any"], "Acme::Mitey::Cards::Types::TypeConstraint")
128 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ArrayRef, "ArrayRef", "Types::Standard", "ArrayRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
151 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Bool, "Bool", "Types::Standard", "Bool"], "Acme::Mitey::Cards::Types::TypeConstraint")
174 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Card, "Card", "Acme::Mitey::Cards::Types::Source", "Card"], "Acme::Mitey::Cards::Types::TypeConstraint")
197 2 4 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CardArray, "CardArray", "Acme::Mitey::Cards::Types::Source", "CardArray"], "Acme::Mitey::Cards::Types::TypeConstraint")
220 0 3 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CardNumber, "CardNumber", "Acme::Mitey::Cards::Types::Source", "CardNumber"], "Acme::Mitey::Cards::Types::TypeConstraint")
243 0 3 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Character, "Character", "Acme::Mitey::Cards::Types::Source", "Character"], "Acme::Mitey::Cards::Types::TypeConstraint")
266 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ClassName, "ClassName", "Types::Standard", "ClassName"], "Acme::Mitey::Cards::Types::TypeConstraint")
319 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CodeRef, "CodeRef", "Types::Standard", "CodeRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
342 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ConsumerOf, "ConsumerOf", "Types::Standard", "ConsumerOf"], "Acme::Mitey::Cards::Types::TypeConstraint")
365 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_CycleTuple, "CycleTuple", "Types::Standard", "CycleTuple"], "Acme::Mitey::Cards::Types::TypeConstraint")
388 0 8 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Deck, "Deck", "Acme::Mitey::Cards::Types::Source", "Deck"], "Acme::Mitey::Cards::Types::TypeConstraint")
411 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Defined, "Defined", "Types::Standard", "Defined"], "Acme::Mitey::Cards::Types::TypeConstraint")
434 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Dict, "Dict", "Types::Standard", "Dict"], "Acme::Mitey::Cards::Types::TypeConstraint")
457 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Enum, "Enum", "Types::Standard", "Enum"], "Acme::Mitey::Cards::Types::TypeConstraint")
480 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_FaceCard, "FaceCard", "Acme::Mitey::Cards::Types::Source", "FaceCard"], "Acme::Mitey::Cards::Types::TypeConstraint")
503 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_FileHandle, "FileHandle", "Types::Standard", "FileHandle"], "Acme::Mitey::Cards::Types::TypeConstraint")
526 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_GlobRef, "GlobRef", "Types::Standard", "GlobRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
549 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Hand, "Hand", "Acme::Mitey::Cards::Types::Source", "Hand"], "Acme::Mitey::Cards::Types::TypeConstraint")
572 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_HasMethods, "HasMethods", "Types::Standard", "HasMethods"], "Acme::Mitey::Cards::Types::TypeConstraint")
595 0 2 $type ||= bless([\&Acme::Mitey::Cards::Types::is_HashRef, "HashRef", "Types::Standard", "HashRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
618 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_InstanceOf, "InstanceOf", "Types::Standard", "InstanceOf"], "Acme::Mitey::Cards::Types::TypeConstraint")
641 2 4 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Int, "Int", "Types::Standard", "Int"], "Acme::Mitey::Cards::Types::TypeConstraint")
664 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_IntRange, "IntRange", "Types::Common::Numeric", "IntRange"], "Acme::Mitey::Cards::Types::TypeConstraint")
687 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Item, "Item", "Types::Standard", "Item"], "Acme::Mitey::Cards::Types::TypeConstraint")
710 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_JokerCard, "JokerCard", "Acme::Mitey::Cards::Types::Source", "JokerCard"], "Acme::Mitey::Cards::Types::TypeConstraint")
733 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_LaxNum, "LaxNum", "Types::Standard", "LaxNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
756 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_LowerCaseSimpleStr, "LowerCaseSimpleStr", "Types::Common::String", "LowerCaseSimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
779 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_LowerCaseStr, "LowerCaseStr", "Types::Common::String", "LowerCaseStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
802 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Map, "Map", "Types::Standard", "Map"], "Acme::Mitey::Cards::Types::TypeConstraint")
825 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Maybe, "Maybe", "Types::Standard", "Maybe"], "Acme::Mitey::Cards::Types::TypeConstraint")
848 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeInt, "NegativeInt", "Types::Common::Numeric", "NegativeInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
871 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeNum, "NegativeNum", "Types::Common::Numeric", "NegativeNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
894 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeOrZeroInt, "NegativeOrZeroInt", "Types::Common::Numeric", "NegativeOrZeroInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
917 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NegativeOrZeroNum, "NegativeOrZeroNum", "Types::Common::Numeric", "NegativeOrZeroNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
940 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NonEmptySimpleStr, "NonEmptySimpleStr", "Types::Common::String", "NonEmptySimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
963 2 5 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NonEmptyStr, "NonEmptyStr", "Types::Common::String", "NonEmptyStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
986 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Num, "Num", "Types::Standard", "Num"], "Acme::Mitey::Cards::Types::TypeConstraint")
1009 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NumRange, "NumRange", "Types::Common::Numeric", "NumRange"], "Acme::Mitey::Cards::Types::TypeConstraint")
1032 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NumericCard, "NumericCard", "Acme::Mitey::Cards::Types::Source", "NumericCard"], "Acme::Mitey::Cards::Types::TypeConstraint")
1055 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_NumericCode, "NumericCode", "Types::Common::String", "NumericCode"], "Acme::Mitey::Cards::Types::TypeConstraint")
1078 0 3 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Object, "Object", "Types::Standard", "Object"], "Acme::Mitey::Cards::Types::TypeConstraint")
1101 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_OptList, "OptList", "Types::Standard", "OptList"], "Acme::Mitey::Cards::Types::TypeConstraint")
1124 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Optional, "Optional", "Types::Standard", "Optional"], "Acme::Mitey::Cards::Types::TypeConstraint")
1147 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Overload, "Overload", "Types::Standard", "Overload"], "Acme::Mitey::Cards::Types::TypeConstraint")
1170 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Password, "Password", "Types::Common::String", "Password"], "Acme::Mitey::Cards::Types::TypeConstraint")
1193 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveInt, "PositiveInt", "Types::Common::Numeric", "PositiveInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
1216 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveNum, "PositiveNum", "Types::Common::Numeric", "PositiveNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
1239 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveOrZeroInt, "PositiveOrZeroInt", "Types::Common::Numeric", "PositiveOrZeroInt"], "Acme::Mitey::Cards::Types::TypeConstraint")
1262 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_PositiveOrZeroNum, "PositiveOrZeroNum", "Types::Common::Numeric", "PositiveOrZeroNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
1285 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Ref, "Ref", "Types::Standard", "Ref"], "Acme::Mitey::Cards::Types::TypeConstraint")
1308 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_RegexpRef, "RegexpRef", "Types::Standard", "RegexpRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
1331 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_RoleName, "RoleName", "Types::Standard", "RoleName"], "Acme::Mitey::Cards::Types::TypeConstraint")
1384 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_ScalarRef, "ScalarRef", "Types::Standard", "ScalarRef"], "Acme::Mitey::Cards::Types::TypeConstraint")
1407 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Set, "Set", "Acme::Mitey::Cards::Types::Source", "Set"], "Acme::Mitey::Cards::Types::TypeConstraint")
1430 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_SimpleStr, "SimpleStr", "Types::Common::String", "SimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
1453 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_SingleDigit, "SingleDigit", "Types::Common::Numeric", "SingleDigit"], "Acme::Mitey::Cards::Types::TypeConstraint")
1476 12 9 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Str, "Str", "Types::Standard", "Str"], "Acme::Mitey::Cards::Types::TypeConstraint")
1499 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrLength, "StrLength", "Types::Common::String", "StrLength"], "Acme::Mitey::Cards::Types::TypeConstraint")
1522 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrMatch, "StrMatch", "Types::Standard", "StrMatch"], "Acme::Mitey::Cards::Types::TypeConstraint")
1545 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrictNum, "StrictNum", "Types::Standard", "StrictNum"], "Acme::Mitey::Cards::Types::TypeConstraint")
1578 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_StrongPassword, "StrongPassword", "Types::Common::String", "StrongPassword"], "Acme::Mitey::Cards::Types::TypeConstraint")
1601 2 4 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Suit, "Suit", "Acme::Mitey::Cards::Types::Source", "Suit"], "Acme::Mitey::Cards::Types::TypeConstraint")
1624 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Tied, "Tied", "Types::Standard", "Tied"], "Acme::Mitey::Cards::Types::TypeConstraint")
1647 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Tuple, "Tuple", "Types::Standard", "Tuple"], "Acme::Mitey::Cards::Types::TypeConstraint")
1670 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_Undef, "Undef", "Types::Standard", "Undef"], "Acme::Mitey::Cards::Types::TypeConstraint")
1693 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_UpperCaseSimpleStr, "UpperCaseSimpleStr", "Types::Common::String", "UpperCaseSimpleStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
1716 0 0 $type ||= bless([\&Acme::Mitey::Cards::Types::is_UpperCaseStr, "UpperCaseStr", "Types::Common::String", "UpperCaseStr"], "Acme::Mitey::Cards::Types::TypeConstraint")
1739 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
155 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
1392 0 0 0 ref $_[0] eq 'SCALAR' || ref $_[0] eq 'REF'
1549 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
1558 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
1628 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)))
1632 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)))