Branch Coverage

blib/lib/File/Touch.pm
Criterion Covered Total %
branch 14 46 30.4


line true false branch
21 2 0 if (not $@)
57 0 3 if ($atime_only and $mtime_only)
61 0 3 if (defined $time)
62 0 0 if (defined $atime or defined $mtime)
66 0 0 unless $mtime_only
67 0 0 unless $atime_only
70 0 3 if (defined $reference)
71 0 0 if (defined $time or defined $atime or defined $mtime)
74 0 0 if (-e $reference) { }
75 0 0 unless my $sb = &File::Touch::stat($reference)
76 0 0 unless $mtime_only
77 0 0 unless $atime_only
99 3 0 if ($caller_is_obj) { }
117 3 0 if (-e $file) { }
118 0 3 unless my $sb = &File::Touch::stat($file)
123 0 0 unless ($self->{'_no_create'})
124 0 0 unless sysopen my $fh, $file, $SYSOPEN_MODE
125 0 0 unless close $fh
130 2 1 unless ($self->{'_mtime_only'})
132 2 0 if defined $self->{'_atime'}
134 2 1 unless ($self->{'_atime_only'})
136 2 0 if defined $self->{'_mtime'}
138 3 0 if (&File::Touch::utime($atime, $mtime, $file))