File Coverage

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