File Coverage

blib/lib/WWW/SnipeIT/Hardware.pm

Criterion	Covered	Total	%
statement	18	136	13.2
branch			n/a
condition			n/a
subroutine	6	18	33.3
pod			n/a
total	24	154	15.5

package WWW::SnipeIT::Hardware;
use Modern::Perl '2018';

use Object::Pad;
use URI;

use HTTP::Request;
use LWP::UserAgent;
use JSON::XS;


class Hardware {

    field $endpoint :param;
    field $header :param;

    method getHardwareIDByAssetTag ($assetTag) {
        my $url = $endpoint."hardware/bytag/".$assetTag;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results->{'id'}
    }

    method getHardwareByAssetTag ($assetTag) {
        my $url = $endpoint."hardware/bytag/".$assetTag;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results
    }

    method getHardwareBySerialNumber ($serialNumber) {
        my $url = $endpoint."hardware/byserial/".$serialNumber;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results
    }

    method getAssetTagByHardwareID ($hardwareID) {
        my $url = $endpoint."hardware/".$hardwareID;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results->{'asset_tag'}
    }

    method updateAssetByHardwareID ($hardwareID, $body) {
        my $url = $endpoint."hardware/".$hardwareID;
        my $r = HTTP::Request->new('PUT', $url, $header, $body);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
    }

    method updateAssetByAssetTag ($assetTag, $body) {
        my $hardwareID = ($self->getHardwareIDByAssetTag($assetTag));
        $self->updateAssetByHardwareID ($hardwareID, $body)
    }

    method getHardwareByCustomField ($fieldName, $fieldValue, $itemType = 'asset') {
        my $url = $endpoint."hardware?".$fieldName."=".$fieldValue."&item_type=".$itemType;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results;
    }

    method getHistoryByHardwareID ($hardwareID, $itemType = 'asset') {
        my $url = $endpoint."reports/activity?item_id=".$hardwareID."&item_type=".$itemType;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});
        return $results;
    }

    method getHistoryByAssetTag ($assetTag, $itemType = 'asset') {
        my $hardwareID = ($self->getHardwareIDByAssetTag($assetTag));
        return $self->getHistoryByHardwareID($hardwareID);
    }

    method searchHardware ($searchString) {
        my $url = $endpoint."hardware?search=".$searchString;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results;
    }

    method getHardwareByCategory ($searchString) {
        my $url = $endpoint."hardware?category_id=".$searchString;
        my $r = HTTP::Request->new('GET', $url, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results;
    }

    method getHardware (%params) {
        my $uri = URI->new($endpoint."hardware");
        while (my ($key, $value) = each %params) {
            $uri->query_param($key => $value);
        }
        my $r = HTTP::Request->new('GET', $uri->as_string, $header);
        my $ua = LWP::UserAgent->new();
        my $res = $ua->request($r);
        my $results = JSON::XS::decode_json($res->{_content});

        return $results;
    }
}

1;