File Coverage

blib/lib/Net/FTPTurboSync/MixLocal.pm
Criterion Covered Total %
statement 9 15 60.0
branch 0 2 0.0
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 22 54.5


line stmt bran cond sub pod time code
1             package Net::FTPTurboSync::MixLocal;
2              
3 1     1   4 use Exception::Class::Base;
  1         2  
  1         22  
4 1     1   6 use Exception::Class::TryCatch;
  1         2  
  1         58  
5 1     1   5 use Exception::Class ('FileNotFound' => { fields => [ 'fileName' ] });
  1         2  
  1         8  
6              
7             sub load {
8 0     0 0   my ( $class, $path ) = @_;
9 0           my @stat = lstat $path;
10 0 0         if ( ! @stat ){
11 0           FileNotFound->throw( $path );
12             }
13 0           my $self = $class->instantiateObject( $path, \@stat );
14 0           return $self;
15             }
16              
17             1;