File Coverage

lib/Rex/Interface/Shell/Ksh.pm
Criterion Covered Total %
statement 11 16 68.7
branch n/a
condition 0 3 0.0
subroutine 4 5 80.0
pod 0 1 0.0
total 15 25 60.0


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Interface::Shell::Ksh;
6              
7 1     1   15 use v5.12.5;
  1         4  
8 1     1   11 use warnings;
  1         2  
  1         53  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12 1     1   9 use Rex::Interface::Shell::Bash;
  1         11  
  1         10  
13              
14 1     1   43 use base qw(Rex::Interface::Shell::Bash);
  1         5  
  1         164  
15              
16             sub new {
17 0     0 0   my $class = shift;
18 0   0       my $proto = ref($class) || $class;
19 0           my $self = $proto->SUPER::new(@_);
20              
21 0           bless( $self, $class );
22              
23 0           return $self;
24             }
25              
26             1;