File Coverage

blib/lib/WebService/DigitalOcean/Role/Images.pm
Criterion Covered Total %
statement 18 21 85.7
branch n/a
condition n/a
subroutine 6 7 85.7
pod 1 1 100.0
total 25 29 86.2


line stmt bran cond sub pod time code
1             package WebService::DigitalOcean::Role::Images;
2             # ABSTRACT: Images role for DigitalOcean WebService
3 2     2   2228 use utf8;
  2         4  
  2         11  
4 2     2   69 use Moo::Role;
  2         5  
  2         13  
5 2     2   553 use feature 'state';
  2         4  
  2         149  
6 2     2   11 use Types::Standard qw/Object/;
  2         3  
  2         14  
7 2     2   1734 use Type::Utils;
  2         4  
  2         14  
8 2     2   3402 use Type::Params qw/compile/;
  2         3  
  2         13  
9              
10             requires 'make_request';
11              
12             our $VERSION = '0.024'; # VERSION
13              
14             sub image_list {
15 0     0 1   state $check = compile(Object);
16 0           my ($self, $opts) = $check->(@_);
17              
18 0           return $self->make_request(GET => "/images");
19             }
20              
21             1;
22              
23             __END__