File Coverage

blib/lib/Net/SecurityCenter/API/Status.pm
Criterion Covered Total %
statement 19 20 95.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             package Net::SecurityCenter::API::Status;
2              
3 2     2   717 use warnings;
  2         5  
  2         55  
4 2     2   9 use strict;
  2         4  
  2         36  
5              
6 2     2   9 use parent 'Net::SecurityCenter::Base';
  2         3  
  2         8  
7              
8 2     2   97 use Net::SecurityCenter::Utils qw(:all);
  2         4  
  2         516  
9              
10             our $VERSION = '0.310';
11              
12             #-------------------------------------------------------------------------------
13             # METHODS
14             #-------------------------------------------------------------------------------
15              
16             sub status {
17              
18 1     1 1 3 my ( $self, %args ) = @_;
19              
20 1         6 my $tmpl = {
21             fields => {
22             filter => \&sc_filter_array_to_string
23             },
24             raw => {},
25             };
26              
27 1         6 my $params = sc_check_params( $tmpl, \%args );
28 1         4 my $raw = delete( $params->{'raw'} );
29 1         13 my $status = $self->client->get( '/status', $params );
30              
31 1 50       4 if ($raw) {
32 0         0 return $status;
33             }
34              
35 1         6 return sc_normalize_hash($status);
36              
37             }
38              
39             #-------------------------------------------------------------------------------
40              
41             1;
42              
43             __END__