File Coverage

blib/lib/Unix/Groups.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             package Unix::Groups;
2              
3 1     1   30840 use 5.008008;
  1         3  
  1         39  
4 1     1   6 use strict;
  1         2  
  1         45  
5 1     1   4 use warnings;
  1         6  
  1         42  
6              
7 1     1   4 use Exporter qw/import/;
  1         2  
  1         115  
8              
9             our %EXPORT_TAGS=(all=>[qw/NGROUPS_MAX getgroups setgroups/],);
10             our @EXPORT_OK=@{$EXPORT_TAGS{all}};
11              
12             our $VERSION = '0.01';
13              
14             require XSLoader;
15             XSLoader::load('Unix::Groups', $VERSION);
16              
17             1;
18             __END__