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


line stmt bran cond sub pod time code
1             package Net::SecurityCenter::Base;
2              
3 2     2   865 use warnings;
  2         4  
  2         64  
4 2     2   10 use strict;
  2         5  
  2         666  
5              
6             our $VERSION = '0.300';
7              
8             #-------------------------------------------------------------------------------
9             # CONSTRUCTOR
10             #-------------------------------------------------------------------------------
11              
12             sub new {
13              
14 18     18 0 57 my ( $class, $client ) = @_;
15              
16 18         47 my $self = { client => $client, };
17              
18 18         123 return bless $self, $class;
19              
20             }
21              
22             #-------------------------------------------------------------------------------
23              
24             sub client {
25              
26 40     40 0 1407 my ($self) = @_;
27 40         1325 return $self->{client};
28              
29             }
30              
31             #-------------------------------------------------------------------------------
32              
33             sub error {
34              
35 0     0 0   my ( $self, $message, $code ) = @_;
36              
37 0 0         if ( defined $message ) {
38 0           $self->{client}->error( $message, $code );
39 0           return;
40             } else {
41 0           return $self->{client}->error;
42             }
43              
44             }
45              
46             #-------------------------------------------------------------------------------
47              
48             1;
49              
50             __END__