File Coverage

blib/lib/Net/FreeIPA/Base.pm
Criterion Covered Total %
statement 12 21 57.1
branch 0 4 0.0
condition 0 3 0.0
subroutine 4 6 66.6
pod 1 1 100.0
total 17 35 48.5


line stmt bran cond sub pod time code
1             package Net::FreeIPA::Base;
2             $Net::FreeIPA::Base::VERSION = '3.0.1';
3 6     6   1972 use strict;
  6         7  
  6         123  
4 6     6   17 use warnings;
  6         5  
  6         361  
5              
6              
7             =head1 NAME
8              
9             Net::FreeIPA::Base provides basic class structure for Net::FreeIPA
10              
11             =head2 Public methods
12              
13             =over
14              
15             =item new
16              
17             =cut
18              
19             sub new
20             {
21 0     0 1   my $this = shift;
22 0   0       my $class = ref($this) || $this;
23 0           my $self = {}; # here, it gives a reference on a hash
24 0           bless $self, $class;
25              
26 0 0         return $self->_initialize(@_) ? $self : undef;
27             };
28              
29             =item error, warn, info, debug
30              
31             Convenience methods to access the log instance that might
32             be passed during initialisation and set to $self->{log}.
33              
34             =cut
35              
36 6     6   21 no strict 'refs';
  6         13  
  6         497  
37             foreach my $i (qw(error warn info debug)) {
38             *{$i} = sub {
39 0     0     my ($self, @args) = @_;
40 0 0         if ($self->{log}) {
41 0           return $self->{log}->$i(@args);
42             } else {
43 0           return;
44             }
45             }
46             }
47 6     6   25 use strict 'refs';
  6         6  
  6         221  
48              
49             =pod
50              
51             =back
52              
53             =cut
54              
55             1;