File Coverage

lib/POSIX/1003/User.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             # Copyrights 2011-2015 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.01.
5 3     3   13297 use warnings;
  3         5  
  3         75  
6 3     3   9 use strict;
  3         2  
  3         80  
7              
8             package POSIX::1003::User;
9 3     3   10 use vars '$VERSION';
  3         3  
  3         111  
10             $VERSION = '0.99_07';
11              
12 3     3   9 use base 'POSIX::1003::Module';
  3         3  
  3         497  
13              
14             our @IN_CORE = qw/
15             getpwnam getpwuid getpwent
16             getgrnam getgrgid getgrent
17             getlogin
18             /;
19              
20             my @functions = qw/
21             getuid setuid
22             geteuid seteuid
23             setreuid
24             getresuid setresuid
25              
26             getgid setgid
27             getegid setegid
28             setregid
29             getresgid setresgid
30             getgroups setgroups
31             /;
32              
33             push @functions, @IN_CORE;
34              
35             my @constants;
36              
37             our %EXPORT_TAGS =
38             ( constants => \@constants
39             , functions => \@functions
40             , tables => [ '%user' ]
41             );
42              
43             my $user;
44             our %user;
45              
46             BEGIN {
47 3     3   606 $user = user_table;
48 3         7 push @constants, keys %$user;
49 3         11 tie %user, 'POSIX::1003::ReadOnlyTable', $user;
50             }
51              
52              
53             #------------------
54              
55             #------------------
56              
57             #------------------
58              
59              
60             1;