File Coverage

blib/lib/Rex/Helper/File/Spec.pm
Criterion Covered Total %
statement 13 14 92.8
branch 1 2 50.0
condition 1 3 33.3
subroutine 4 4 100.0
pod n/a
total 19 23 82.6


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Helper::File::Spec;
6              
7 105     105   1225 use v5.12.5;
  105         349  
8 105     105   578 use warnings;
  105         254  
  105         4821  
9              
10             our $VERSION = '1.14.3'; # VERSION
11              
12 105     105   26886 use English qw(-no_match_vars);
  105         173052  
  105         736  
13              
14             require File::Spec::Unix;
15             require File::Spec::Win32;
16              
17             sub AUTOLOAD { ## no critic (ProhibitAutoloading)
18 3380     3380   13798 my ( $self, @args ) = @_;
19              
20 3380         35264 ( my $method ) = our $AUTOLOAD =~ /::(\w+)$/msx;
21              
22 3380         11353 my $file_spec_flavor = 'File::Spec::Unix';
23              
24 3380 50 33     15348 if ( $OSNAME eq 'MSWin32' && !Rex::is_ssh() ) {
25 0         0 $file_spec_flavor = 'File::Spec::Win32';
26             }
27              
28 3380         105432 return $file_spec_flavor->$method(@args);
29             }
30              
31             1;