Branch Coverage

blib/lib/File/Touch.pm
Criterion Covered Total %
branch 13 44 29.5


line true false branch
49 0 3 if ($atime_only and $mtime_only)
53 0 3 if (defined $time)
54 0 0 if (defined $atime or defined $mtime)
58 0 0 unless $mtime_only
59 0 0 unless $atime_only
62 0 3 if (defined $reference)
63 0 0 if (defined $time or defined $atime or defined $mtime)
66 0 0 if (-e $reference) { }
67 0 0 unless my $sb = &File::Touch::stat($reference)
68 0 0 unless $mtime_only
69 0 0 unless $atime_only
91 3 0 if ($caller_is_obj) { }
109 3 0 if (-e $file) { }
110 0 3 unless my $sb = &File::Touch::stat($file)
115 0 0 unless ($self->{'_no_create'})
116 0 0 unless sysopen my $fh, $file, $SYSOPEN_MODE
117 0 0 unless close $fh
122 2 1 unless ($self->{'_mtime_only'})
124 2 0 if defined $self->{'_atime'}
126 2 1 unless ($self->{'_atime_only'})
128 2 0 if defined $self->{'_mtime'}
130 3 0 if (&File::Touch::utime($atime, $mtime, $file))