File Coverage

blib/lib/Net/SecurityCenter/Base.pm

Criterion	Covered	Total	%
statement	11	16	68.7
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	3	0.0
total	15	26	57.6

package Net::SecurityCenter::Base;

use warnings;
use strict;

our $VERSION = '0.300';

#-------------------------------------------------------------------------------
# CONSTRUCTOR
#-------------------------------------------------------------------------------

sub new {

    my ( $class, $client ) = @_;

    my $self = { client => $client, };

    return bless $self, $class;

}

#-------------------------------------------------------------------------------

sub client {

    my ($self) = @_;
    return $self->{client};

}

#-------------------------------------------------------------------------------

sub error {

    my ( $self, $message, $code ) = @_;

    if ( defined $message ) {
        $self->{client}->error( $message, $code );
        return;
    } else {
        return $self->{client}->error;
    }

}

#-------------------------------------------------------------------------------

1;

__END__