File Coverage

blib/lib/WWW/SnipeIT.pm

Criterion	Covered	Total	%
statement	11	18	61.1
branch			n/a
condition			n/a
subroutine	4	5	80.0
pod			n/a
total	15	23	65.2

package WWW::SnipeIT;
use v5.26;
use Object::Pad;
use WWW::SnipeIT::Hardware;
use WWW::SnipeIT::Users;

our $VERSION = '0.05';

class SnipeIT {

  field $endpoint :param = 0;
  field $accessToken :param = 0;

  method snipe () {
    my $header = ['Content-Type' => 'application/json; charset=UTF-8', 'Authorization' => 'Bearer '.$accessToken];
    my $asset = Hardware->new('header'=> $header, 'endpoint' => $endpoint);
    my $users = Users->new('header'=> $header, 'endpoint' => $endpoint);

    return {'hardware' => $asset, 'users' => $users};
  }
}

1;
__END__