| blib/lib/Assert/Conditional.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 75 | 96 | 78.1 |
| line | l | !l | condition |
|---|---|---|---|
| 281 | 0 | 0 | $text =~ /$_/u and return |
| 1170 | 4 | 9 | @missing > 1 && 's' |
| 1189 | 2 | 10 | @forbidden > 1 && 's' |
| 1218 | 2 | 5 | @missing > 1 && 's' |
| 1223 | 2 | 7 | @forbidden > 1 && 's' |
| 1548 | 7 | 1 | @cant > 1 && 's' |
| 1566 | 4 | 1 | @can > 1 && 's' |
| 1668 | 2 | 2 | @doesnt > 1 && 's' |
| 1681 | 2 | 0 | @does > 1 && 's' |
| 1694 | 2 | 1 | @missing > 1 && 's' |
| 1959 | 4 | 2 | &_WIFCORED($wstat) && ' (core dumped)' |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 301 | 55 | 810 | 10 | $real_proto and $real_proto =~ /^\s*&/u |
| 319 | 4 | 1 | 5 | @args and not +($args[0] || '') =~ /^-(?:if|unless)$/u |
| 347 | 0 | 525 | 0 | defined $tagref and not ref $tagref |
| 380 | 1 | 1 | 1 | defined $wantarray and not $wantarray |
| 629 | 3 | 1 | 3 | $n >= $low and $n <= $high |
| 949 | 3 | 0 | 44 | defined $straw && "$straw" |
| 1042 | 2 | 1 | 1 | $have >= $low and $have <= $high |
| 1082 | 2 | 2 | 1 | $have >= $low and $have <= $high |
| 1437 | 0 | 18 | 36 | @from and $skip_caller{$from[0]} |
| 1474 | 4 | 4 | 0 | ref $self and not &Scalar::Util::blessed($self) |
| 1480 | 0 | 4 | 0 | @from and $skip_caller{$from[0]} |
| 1753 | 2 | 0 | 13 | $assertion and defined &$assertion |
| 1773 | 1 | 0 | 16 | $assertion and defined &$assertion |
| 1954 | 1 | 6 | 5 | WIFSIGNALED($wstat) && !!($wstat & 128) |
| line | l | !l | condition |
|---|---|---|---|
| 319 | 6 | 0 | $args[0] || '' |
| 1153 | 169 | 0 | &reftype($_[0]) // '' |
| 1328 | 319 | 6 | &reftype($arg) // 'non-reference' |
| 1473 | 4 | 4 | $args[0] // 'undef' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 343 | 0 | 0 | 525 | $Exporter::Verbose || $Assert::Conditional::Assert_Debug |
| 603 | 1 | 5 | 6 | /^ (?: 0b ) [0-1]+ \z /ux or /^ (?: 0o | 0)? [0-7]+ \z /ux |
| 6 | 1 | 5 | /^ (?: 0b ) [0-1]+ \z /ux or /^ (?: 0o | 0)? [0-7]+ \z /ux or /^ (?: 0x ) [0-9a-fA-F]+ \z /ux | |
| 901 | 2 | 0 | 1 | &checkNFC($str) // $str eq &NFC($str) |
| 909 | 3 | 0 | 0 | &checkNFKC($str) // $str eq &NFKC($str) |
| 1216 | 7 | 5 | 12 | @missing or @forbidden |
| 1279 | 0 | 0 | 3 | $Exporter::Verbose || $Assert::Conditional::Assert_Debug |
| 1488 | 1 | 1 | 2 | $from[0]->isa($to[0]) or $self->DOES($from[0]) |