File Coverage

lib/Rex/User/Base.pm
Criterion Covered Total %
statement 10 12 83.3
branch n/a
condition 1 3 33.3
subroutine 3 5 60.0
pod 0 3 0.0
total 14 23 60.8


line stmt bran cond sub pod time code
1             #
2             # (c) Jan Gehring
3             #
4              
5             package Rex::User::Base;
6              
7 2     2   44 use v5.12.5;
  2         9  
8 2     2   16 use warnings;
  2         5  
  2         307  
9              
10             our $VERSION = '1.14.3'; # VERSION
11              
12             sub new {
13 2     2 0 5 my $that = shift;
14 2   33     27 my $proto = ref($that) || $that;
15 2         7 my $self = {@_};
16              
17 2         8 bless( $self, $proto );
18              
19 2         10 return $self;
20             }
21              
22             sub lock_password {
23              
24             # Overridden in those classes that implement it
25 0     0 0   die "lock_password is not available on this operating system";
26             }
27              
28             sub unlock_password {
29              
30             # Overridden in those classes that implement it
31 0     0 0   die "unlock_password is not available on this operating system";
32             }
33              
34             1;