File Coverage

blib/lib/Net/FTPTurboSync/LocalFile.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 16 75.0


line stmt bran cond sub pod time code
1             package Net::FTPTurboSync::LocalFile;
2              
3 1     1   468 use Net::FTPTurboSync::FileLeaf;
  1         2  
  1         25  
4 1     1   571 use Net::FTPTurboSync::MixLocal;
  1         2  
  1         25  
5 1     1   5 use base qw(Net::FTPTurboSync::FileLeaf Net::FTPTurboSync::MixLocal);
  1         1  
  1         135  
6              
7             sub instantiateObject {
8 0     0 0   my ( $class, $path, $stat ) = @_;
9 0           return $class->new( $path, 01777 & $stat->[2], $stat->[9], $stat->[7] );
10             }
11              
12             1;