| blib/lib/Tree/Simple/Visitor/CreateDirectoryTree.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 12 | 14 | 85.7 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 3 | unless open FILE, '>', $filepath |
| 31 | 0 | 5 | unless mkdir $dirpath |
| 38 | 4 | 2 | unless &blessed($tree) and $tree->isa('Tree::Simple') |
| 46 | 3 | 1 | unless defined $file_handler and ref $file_handler eq 'CODE' |
| 53 | 3 | 1 | unless defined $dir_handler and ref $dir_handler eq 'CODE' |
| 63 | 8 | 8 | if $filter_function |
| 67 | 6 | 10 | if ($tree->isLeaf and not $node =~ m[/|\\$]) { } |