| blib/lib/File/TreeBuilder.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 24 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 19 | 0 | 0 | unless defined $str |
| 31 | 0 | 0 | unless (defined $dir) |
| 35 | 0 | 0 | if ($dir eq '') |
| 39 | 0 | 0 | unless (-d $dir) |
| 40 | 0 | 0 | unless (mkdir $dir) |
| 45 | 0 | 0 | unless @lines |
| 53 | 0 | 0 | if ($lines[$i] =~ /^\./) { } |
| 0 | 0 | elsif ($lines[$i] =~ m[^/]) { } | |
| 55 | 0 | 0 | unless $$err_str_ref eq '' |
| 62 | 0 | 0 | unless defined $sub_dir |
| 81 | 0 | 0 | unless open my $hdl, '>', $file_spec |
| 83 | 0 | 0 | if defined $contents and $contents ne '' |