| blib/lib/File/Monitor.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 13 | 22 | 59.0 |
| line | true | false | branch |
|---|---|---|---|
| 21 | 3 | 5 | if (my $base = delete $$args{'base'}) |
| 32 | 0 | 3 | if exists $$self{'_monitors'} and %{$$self{'_monitors'};} |
| 39 | 1189 | 13 | unless @_ |
| 40 | 0 | 13 | unless my $new_base = shift() |
| 42 | 0 | 13 | if (not defined $cur_base and $self->has_monitors) |
| 65 | 22 | 0 | if (ref $_[0] eq 'HASH') { } |
| 70 | 0 | 22 | if @_ |
| 77 | 0 | 0 | unless my $name = shift() |
| 83 | 0 | 0 | if defined $callback |
| 128 | 162 | 76 | if (my $base = $self->base) |
| 140 | 518 | 423 | if (my $base = $self->base) |