File Coverage

blib/lib/Auth/ActiveDirectory/Group.pm
Criterion Covered Total %
statement 13 13 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 2 2 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package Auth::ActiveDirectory::Group;
2              
3 2     2   806 use strict;
  2         2  
  2         48  
4 2     2   6 use warnings;
  2         2  
  2         247  
5              
6             =head1 NAME
7              
8             Auth::ActiveDirectory::Group - Authentication module for MS ActiveDirectory
9              
10             =head1 VERSION
11              
12             Version 0.01
13              
14             =cut
15              
16             our $VERSION = '0.01';
17              
18             =head1 SYNOPSIS
19              
20             Quick summary of what the module does.
21              
22             =head1 SUBROUTINES/METHODS
23              
24             =cut
25              
26             =head2 new
27              
28             Constructor
29              
30             =cut
31              
32             sub new {
33 10     10 1 40 my $class = shift;
34 10         24 my $self = {@_};
35 10         13 bless $self, $class;
36 10         32 return $self;
37             }
38              
39             =head2 name
40              
41             Getter/Setter for internal hash key name.
42              
43             =cut
44              
45             sub name {
46 6 100   6 1 1277 return $_[0]->{name} unless $_[1];
47 1         2 $_[0]->{name} = $_[1];
48 1         3 return $_[0]->{name};
49             }
50              
51             1; # End of uth::ActiveDirectory::Group
52              
53             __END__