File Coverage

blib/lib/Net/OpenVAS/Error.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch			n/a
condition			n/a
subroutine	3	6	50.0
pod	0	3	0.0
total	12	25	48.0

package Net::OpenVAS::Error;

use warnings;
use strict;

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

our $VERSION = '0.100';

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

sub new {

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

    my $self = { message => $message, code => $code, caller => [ caller(1) ] };

    return bless $self, $class;

}

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

sub message {
    my ($self) = @_;
    return $self->{'message'};
}

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

sub code {
    my ($self) = @_;
    return $self->{'code'};
}

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

1;

__END__