File Coverage

blib/lib/WWW/SnipeIT.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod n/a
total 12 19 63.1


line stmt bran cond sub pod time code
1             package WWW::SnipeIT;
2              
3             #use v5.26;
4 1     1   46934 use Modern::Perl '2018'; #5.26
  1         6693  
  1         5  
5             our $VERSION = '0.01';
6 1     1   564 use Object::Pad;
  1         7297  
  1         3  
7 1     1   348 use WWW::SnipeIT::Hardware;
  1         3  
  1         60  
8              
9              
10             class SnipeIT {
11             has $accessToken :param;
12             has $endpoint :param;
13              
14 0     0     method snipe () {
  0            
  0            
15 0           my $header = ['Content-Type' => 'application/json; charset=UTF-8', 'Authorization' => 'Bearer '.$accessToken];
16 0           my $asset = Hardware->new('header'=> $header, 'endpoint' => $endpoint);
17            
18 0           return {'hardware' => $asset};
19             }
20             }
21              
22              
23             1;
24             __END__