File Coverage

blib/lib/File/Tasks/Edit.pm
Criterion Covered Total %
statement 13 16 81.2
branch 0 2 0.0
condition n/a
subroutine 5 7 71.4
pod 2 2 100.0
total 20 27 74.0


line stmt bran cond sub pod time code
1             package File::Tasks::Edit;
2              
3             # See POD at end for docs
4              
5 4     4   25 use strict;
  4         7  
  4         163  
6 4     4   58 use base 'File::Tasks::Add';
  4         11  
  4         422  
7 4     4   21 use File::Flat ();
  4         8  
  4         110  
8              
9 4     4   20 use vars qw{$VERSION};
  4         7  
  4         185  
10             BEGIN {
11 4     4   388 $VERSION = '0.07';
12             }
13              
14              
15              
16              
17              
18             #####################################################################
19             # File::Tasks::Task
20              
21 0     0 1   sub type { 'Edit' }
22              
23             sub test {
24 0     0 1   my $self = shift;
25 0 0         File::Flat->isaFile( $self->path ) and File::Flat->canWrite( $self->path );
26             }
27              
28             1;
29              
30             __END__