File Coverage

blib/lib/Net/SecurityCenter/Error.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	3	3	100.0
total	15	23	65.2

package Net::SecurityCenter::Error;

use warnings;
use strict;

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

our $VERSION = '0.310';

#-------------------------------------------------------------------------------
# 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__