File Coverage

blib/lib/VFS/File.pm
Criterion Covered Total %
statement 6 17 35.2
branch 0 2 0.0
condition n/a
subroutine 2 6 33.3
pod 0 4 0.0
total 8 29 27.5


line stmt bran cond sub pod time code
1             package VFS::File;
2              
3 1     1   5 use strict;
  1         2  
  1         28  
4 1     1   4 use warnings;
  1         2  
  1         210  
5              
6             sub new {
7 0     0 0   my $class = shift;
8 0 0         my $self = ($#_ == 0) ? { %{ (shift) } } : { @_ };
  0            
9 0           return bless $self, $class;
10             }
11              
12             sub commit {
13 0     0 0   die "Commit called on basic file object - subclass this!";
14             }
15              
16             sub read {
17 0     0 0   my ($self) = @_;
18 0           return "";
19             }
20              
21             sub write {
22 0     0 0   my ($self, $data) = @_;
23 0           $self->{Data} = $data;
24 0           $self->commit; # Should update version.
25 0           return 1;
26             }
27              
28             1;
29             __END__