Dave Cross: Still Munging Data With Perl: Online event - Mar 27 Learn more

#
# (c) Jan Gehring <jan.gehring@gmail.com>
#
use v5.12.5;
our $VERSION = '1.16.0'; # VERSION
use English qw(-no_match_vars);
sub AUTOLOAD { ## no critic (ProhibitAutoloading)
my ( $self, @args ) = @_;
( my $method ) = our $AUTOLOAD =~ /::(\w+)$/msx;
my $file_spec_flavor = 'File::Spec::Unix';
if ( $OSNAME eq 'MSWin32' && !Rex::is_ssh() ) {
$file_spec_flavor = 'File::Spec::Win32';
}
return $file_spec_flavor->$method(@args);
}
1;