File Coverage

blib/lib/Net/SecurityCenter/API/DeviceInfo.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch	0	2	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	26	65.3

package Net::SecurityCenter::API::DeviceInfo;

use warnings;
use strict;

use parent 'Net::SecurityCenter::Base';

use Net::SecurityCenter::Utils qw(:all);

our $VERSION = '0.311';

#-------------------------------------------------------------------------------
# METHODS
#-------------------------------------------------------------------------------

sub get_info {

    my ( $self, %args ) = @_;

    my $tmpl = {
        fields   => {},
        ip       => {},
        uuid     => {},
        dns_name => {
            remap => 'dnsName',
        }
    };

    my $params      = sc_check_params( $tmpl, \%args );
    my $device_info = $self->client->get( "/deviceInfo", $params );

    return if ( !$device_info );
    return sc_normalize_hash $device_info;

}

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

1;

__END__