Branch Coverage

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


line true false branch
22 2 0 if (not $@)
58 0 3 if ($atime_only and $mtime_only)
62 0 3 if (defined $time)
63 0 0 if (defined $atime or defined $mtime)
67 0 0 unless $mtime_only
68 0 0 unless $atime_only
71 0 3 if (defined $reference)
72 0 0 if (defined $time or defined $atime or defined $mtime)
75 0 0 if (-e $reference) { }
76 0 0 unless my $sb = &File::Touch::stat($reference)
77 0 0 unless $mtime_only
78 0 0 unless $atime_only
100 3 0 if ($caller_is_obj) { }
118 3 0 if (-e $file) { }
119 0 3 unless my $sb = &File::Touch::stat($file)
124 0 0 unless ($self->{'_no_create'})
125 0 0 unless sysopen my $fh, $file, $SYSOPEN_MODE
126 0 0 unless close $fh
131 2 1 unless ($self->{'_mtime_only'})
133 2 0 if defined $self->{'_atime'}
135 2 1 unless ($self->{'_atime_only'})
137 2 0 if defined $self->{'_mtime'}
139 3 0 if (&File::Touch::utime($atime, $mtime, $file))