| blib/lib/Carp/Assert.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 17 | 20 | 85.0 |
| line | true | false | branch |
|---|---|---|---|
| 33 | 2 | 7 | exists $ENV{'PERL_NDEBUG'} ? : |
| 34 | 7 | 2 | if (grep /^:NDEBUG$/, @_ or $env_ndebug) { } |
| 37 | 7 | 21 | if ($func eq 'affirm') { } |
| 74 | 5 | 4 | if defined $name |
| 280 | 6 | 4 | unless ($_[0]) |
| 327 | 1 | 0 | unless (eval { do { &{$_[0];} } }) |
| 330 | 1 | 0 | unless (defined $name) |
| 335 | 0 | 1 | if $@ |
| 380 | 1 | 1 | unless ($_[0] eq $_[1]) |
| 388 | 1 | 1 | unless ($_[0] ne $_[1]) |