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


line stmt bran cond sub pod time code
1             package Net::OpenVAS::Error;
2              
3 2     2   16 use warnings;
  2         5  
  2         70  
4 2     2   26 use strict;
  2         19  
  2         56  
5              
6 2     2   11 use overload q|""| => 'message', fallback => 1;
  2         7  
  2         16  
7              
8             our $VERSION = '0.101';
9              
10             #-------------------------------------------------------------------------------
11             # CONSTRUCTOR
12             #-------------------------------------------------------------------------------
13              
14             sub new {
15              
16 0     0 0   my ( $class, $message, $code ) = @_;
17              
18 0           my $self = { message => $message, code => $code, caller => [ caller(1) ] };
19              
20 0           return bless $self, $class;
21              
22             }
23              
24             #-------------------------------------------------------------------------------
25              
26             sub message {
27 0     0 0   my ($self) = @_;
28 0           return $self->{'message'};
29             }
30              
31             #-------------------------------------------------------------------------------
32              
33             sub code {
34 0     0 0   my ($self) = @_;
35 0           return $self->{'code'};
36             }
37              
38             #-------------------------------------------------------------------------------
39              
40             1;
41              
42             __END__