| perllib/Arch/Test/Tree.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 1 | 28 | 3.5 |
| line | true | false | branch |
|---|---|---|---|
| 64 | 0 | 0 | wantarray ? : |
| 75 | 0 | 0 | if $? |
| 78 | 0 | 0 | wantarray ? : |
| 85 | 0 | 0 | unless exists $$self{'files'}{$parent} |
| 115 | 0 | 0 | unless mkdir $path |
| 151 | 0 | 0 | if (-d $self->root . "/$new") |
| 156 | 0 | 0 | unless $ret =~ m[^\./] |
| 170 | 0 | 0 | if (-d $self->root . "/$new") |
| 175 | 0 | 0 | unless $ret =~ m[^\./] |
| 207 | 3 | 0 | unless ref $self |
| 211 | 0 | 0 | if @_ |
| 214 | 0 | 0 | if @_ |
| 225 | 0 | 0 | if @_ |
| 228 | 0 | 0 | if @_ |