| blib/lib/Net/Finger/Server.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 6 | 10 | 60.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 0 | if (my $isa = delete $config{'isa'}) |
| 22 | 0 | 0 | unless eval "require $isa; 1" |
| 165 | 1 | 3 | if ($query eq '') { } |
| 1 | 2 | elsif ($query =~ /\A$u_regex\z/) { } | |
| 1 | 1 | elsif ($query =~ /\A($u_regex)?((?:\@$h_regex)+)\z/) { } |