File Coverage

blib/lib/WebService/DigitalOcean/Role/Sizes.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::Sizes;
2             # ABSTRACT: Sizes role for DigitalOcean WebService
3 2     2   1479 use utf8;
  2         5  
  2         18  
4 2     2   66 use Moo::Role;
  2         5  
  2         14  
5 2     2   558 use feature 'state';
  2         3  
  2         169  
6 2     2   10 use Types::Standard qw/Object/;
  2         3  
  2         14  
7 2     2   840 use Type::Utils;
  2         2  
  2         13  
8 2     2   2377 use Type::Params qw/compile/;
  2         4  
  2         11  
9              
10             requires 'make_request';
11              
12             our $VERSION = '0.024'; # VERSION
13              
14             sub size_list {
15 0     0 1   state $check = compile(Object);
16 0           my ($self, $opts) = $check->(@_);
17              
18 0           return $self->make_request(GET => "/sizes");
19             }
20              
21             1;
22              
23             __END__