|  line  | 
 true  | 
 false  | 
 branch  | 
 
| 
157
 | 
 1  | 
 0  | 
 if ($class eq 'Cache::Repository')  | 
 
| 
312
 | 
 0  | 
 3  | 
 ref $opts{'files'} ? :  | 
 
| 
316
 | 
 2  | 
 1  | 
 if (exists $opts{'filename_conversion'})  | 
 
| 
318
 | 
 1  | 
 1  | 
 if (ref $opts{'filename_conversion'} and ref $opts{'filename_conversion'} eq 'CODE') { }  | 
 
| 
326
 | 
 1  | 
 0  | 
 ref $opts{'filename_conversion'} ? :  | 
 
| 
327
 | 
 1  | 
 0  | 
 unless scalar @files == scalar @renames  | 
 
| 
336
 | 
 2  | 
 0  | 
 if ($opts{'basedir'})  | 
 
| 
341
 | 
 0  | 
 2  | 
 if (@renames) { }  | 
 
| 
 | 
 1  | 
 1  | 
 elsif ($rename_sub) { }  | 
 
| 
352
 | 
 0  | 
 2  | 
 if (-l $fullname) { }  | 
 
| 
356
 | 
 0  | 
 0  | 
 unless $self->add_symlink('tag', $opts{'tag'}, 'filename', $repositoryname, 'target', readlink $fullname)  | 
 
| 
363
 | 
 0  | 
 2  | 
 unless (my $fh = 'IO::File'->new($fullname, 'r'))  | 
 
| 
375
 | 
 0  | 
 2  | 
 unless $self->add_filehandle('tag', $opts{'tag'}, %file_opts)  | 
 
| 
377
 | 
 0  | 
 2  | 
 if $opts{'move'}  | 
 
| 
497
 | 
 0  | 
 0  | 
 if ($cb_opts{'error'})  | 
 
| 
504
 | 
 0  | 
 0  | 
 if ($cb_opts{'target'})  | 
 
| 
511
 | 
 0  | 
 0  | 
 if ($cb_opts{'start'})  | 
 
| 
519
 | 
 0  | 
 0  | 
 unless ($fh = 'IO::File'->new($filename, 'w'))  | 
 
| 
527
 | 
 0  | 
 0  | 
 if defined $cb_opts{'data'}  | 
 
| 
529
 | 
 0  | 
 0  | 
 if ($cb_opts{'end'})  | 
 
| 
540
 | 
 0  | 
 0  | 
 unless $self->retrieve_with_callback(%opts, 'callback', $callback)  | 
 
| 
606
 | 
 0  | 
 6  | 
 if ($cb_opts{'error'})  | 
 
| 
613
 | 
 0  | 
 6  | 
 if ($cb_opts{'target'})  | 
 
| 
619
 | 
 3  | 
 3  | 
 if ($cb_opts{'start'})  | 
 
| 
627
 | 
 3  | 
 3  | 
 if $cb_opts{'data'}  | 
 
| 
631
 | 
 0  | 
 2  | 
 unless $self->retrieve_with_callback(%opts, 'callback', $callback)  | 
 
| 
809
 | 
 0  | 
 0  | 
 unless (exists $self->{'meta'}{$opts{'tag'}})  | 
 
| 
923
 | 
 0  | 
 3  | 
 if 'File::Spec'->file_name_is_absolute($name) or $name =~ m[^/]  | 
 
| 
931
 | 
 4  | 
 0  | 
 unless $_ eq $updir  | 
 
| 
 | 
 0  | 
 3  | 
 if grep {$_ eq '..' unless $_ eq $updir;} @split  |