| lib/News/Pan/Server/Group.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 10 | 22 | 45.4 |
| line | true | false | branch |
|---|---|---|---|
| 18 | 0 | 0 | unless $abs =~ m[([^/]+)$] |
| 24 | 0 | 4 | unless defined $arg |
| 27 | 0 | 4 | unless my $resolved = Cwd::abs_path($arg) |
| 28 | 0 | 4 | unless -f $resolved |
| 38 | 0 | 4 | unless (defined $$self{'_data_'}{'abs_path'}) |
| 40 | 0 | 0 | unless defined $$self{'abs_path'} |
| 41 | 0 | 0 | unless $self->set_abs_path($$self{'abs_path'}) |
| 60 | 4 | 1 | unless (defined $$self{'_data_'}{'subjects'}) |
| 64 | 0 | 4 | unless open INF, "< $abs" |
| 70 | 135 | 2895 | if ($line =~ /^\s+$/) |
| 78 | 0 | 4 | unless close INF |