File Coverage

blib/lib/Net/SecurityCenter/Error.pm

Criterion	Covered	Total	%
statement	12	14	85.7
branch			n/a
condition			n/a
subroutine	4	6	66.6
pod	3	3	100.0
total	19	23	82.6

package Net::SecurityCenter::Error;

use warnings;
use strict;

use overload q|""| => 'message', fallback => 1;

our $VERSION = '0.311';

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

sub new {

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

    my $self = {
        message => $message,
        code    => $code,
    };

    return bless $self, $class;

}

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

sub message {
    return shift->{message};
}

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

sub code {
    return shift->{code};
}

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

1;

__END__