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

package Net::FreeIPA::Base;
$Net::FreeIPA::Base::VERSION = '3.0.2';
use strict;
use warnings;


=head1 NAME

Net::FreeIPA::Base provides basic class structure for Net::FreeIPA

=head2 Public methods

=over

=item new

=cut

sub new
{
    my $this = shift;
    my $class = ref($this) || $this;
    my $self = {}; # here, it gives a reference on a hash
    bless $self, $class;

    return $self->_initialize(@_) ? $self : undef;
};

=item error, warn, info, debug

Convenience methods to access the log instance that might
be passed during initialisation and set to $self->{log}.

=cut

no strict 'refs';
foreach my $i (qw(error warn info debug)) {
    *{$i} = sub {
        my ($self, @args) = @_;
        if ($self->{log}) {
            return $self->{log}->$i(@args);
        } else {
            return;
        }
    }
}
use strict 'refs';

=pod

=back

=cut

1;