| blib/lib/Astro/App/Satpass2/Warner.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 20 | 45.0 |
| line | true | false | branch |
|---|---|---|---|
| 15 | 0 | 26 | if ref $class |
| 20 | 0 | 7 | unless my $code = $self->can($name) |
| 30 | 1 | 20 | if ref $msg |
| 33 | 0 | 20 | if ($self->warning) { } |
| 34 | 0 | 0 | if ($Carp::Verbose) |
| 38 | 0 | 0 | unless $msg =~ /[.?!]\z/msx |
| 49 | 7 | 23 | if (@arg) { } |
| 69 | 0 | 3 | if (ref $msg) |
| 74 | 0 | 3 | if ($self->warning) { } |
| 75 | 0 | 0 | unless $msg =~ / [.?!] \z /msx |