File Coverage

blib/lib/User.pm
Criterion Covered Total %
statement 8 10 80.0
branch 1 4 25.0
condition 0 2 0.0
subroutine 4 4 100.0
pod 2 2 100.0
total 15 22 68.1


line stmt bran cond sub pod time code
1             package User;
2              
3 1     1   465960 use strict;
  1         3  
  1         44  
4              
5 1     1   6 use vars qw(@ISA $VERSION);
  1         3  
  1         405  
6              
7             $VERSION = '1.9';
8              
9              
10             # Preloaded methods go here.
11              
12             sub Home {
13              
14 1 50   1 1 75 return $ENV{HOME} if $ENV{HOME};
15 0 0       0 return $ENV{USERPROFILE} if $ENV{USERPROFILE};
16 0         0 return "";
17              
18             }
19              
20             sub Login {
21             return getlogin || getpwuid( $< ) || $ENV{ LOGNAME } || $ENV{ USER } ||
22 2   0 2 1 1253 $ENV{ USERNAME } || 'unknown';
23             }
24              
25             1;
26             __END__