File Coverage

blib/lib/IO/All/Filesys.pm
Criterion Covered Total %
statement 6 6 100.0
branch 2 2 100.0
condition n/a
subroutine 2 2 100.0
pod 0 1 0.0
total 10 11 90.9


line stmt bran cond sub pod time code
1             package IO::All::Filesys;
2 3     3   20 use IO::All::Base;
  3         8  
  3         21  
3             extends 'IO::All::IO';
4              
5             has name => ();
6             option overload => ();
7              
8             sub upgrade {
9 4     4 0 10 my $self = shift;
10 4 100       43 $self->{name} = delete $self->{location}
11             if $self->{location};
12 4         26 $self->SUPER::upgrade(@_);
13             }
14              
15             1;