| line |
true |
false |
branch |
|
84
|
0 |
0 |
unless &blessed($source_file)
|
|
85
|
0 |
0 |
unless $metadata
|
|
90
|
0 |
0 |
if File::Copy::copy($source_file, $new_file->path)
|
|
100
|
0 |
0 |
unless (-d $root or $root->mkpath)
|
|
109
|
0 |
0 |
unless &blessed($uuid)
|
|
122
|
0 |
0 |
if $node->is_dir
|
|
123
|
0 |
0 |
unless $node->basename =~ /^[0-9A-F]{8}-[0-9A-F]{4}-[0-9A-F]{4}-[0-9A-F]{4}-[0-9A-F]{12}$/
|
|
130
|
0 |
0 |
if &$test($self->from_uuid($uuid))
|
|
143
|
0 |
0 |
if $node->is_dir
|
|
144
|
0 |
0 |
unless $node->basename =~ /^[0-9A-F]{8}-[0-9A-F]{4}-[0-9A-F]{4}-[0-9A-F]{4}-[0-9A-F]{12}$/
|