File Coverage

blib/lib/Rex/Args/String.pm
Criterion Covered Total %
statement 8 8 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 11 12 91.6


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::Args::String;
6              
7 2     2   28 use v5.12.5;
  2         7  
8 2     2   11 use warnings;
  2         4  
  2         185  
9              
10             our $VERSION = '1.14.2.3'; # TRIAL VERSION
11              
12             sub get {
13 5     5 0 11 my ( $class, $name ) = @_;
14              
15 5         9 my $arg = shift @ARGV;
16 5         19 return $arg;
17             }
18              
19             1;