| blib/lib/App/PAUSE/Comaint.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 20 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 0 | 0 | unless ($module and $comaint) |
| 25 | 0 | 0 | if ($module =~ /^[A-Z]+$/ and $comaint =~ /::/) |
| 32 | 0 | 0 | unless @packages |
| 41 | 0 | 0 | unless open my $in, '<', "$ENV{'HOME'}/.pause" |
| 45 | 0 | 0 | if /^(\S+)\s+(.*)/ |
| 60 | 0 | 0 | unless $self->mech->content =~ /Select a co-maintainer/ |
| 73 | 0 | 0 | if ($try{$value}) |
| 79 | 0 | 0 | if (keys %try) |
| 96 | 0 | 0 | if lc $value ne 'y' |
| 100 | 0 | 0 | if (my(@results) = $self->mech->content =~ m[ (Added .*? to co-maint.*?|\w+ was already a co-maint.*?: skipping) ]g) { } |