File Coverage

blib/lib/Tropo/WebAPI/Wait.pm
Criterion Covered Total %
statement 15 18 83.3
branch 0 2 0.0
condition n/a
subroutine 5 6 83.3
pod 0 1 0.0
total 20 27 74.0


line stmt bran cond sub pod time code
1             package Tropo::WebAPI::Wait;
2              
3             # ABSTRACT: "Wait" with Tropo
4              
5 1     1   605 use strict;
  1         1  
  1         33  
6 1     1   6 use warnings;
  1         1  
  1         24  
7              
8 1     1   6 use Moo;
  1         2  
  1         5  
9 1     1   293 use Types::Standard qw(Num Int Str Bool ArrayRef Dict);
  1         2  
  1         11  
10 1     1   1066 use Type::Tiny;
  1         2  
  1         196  
11              
12             extends 'Tropo::WebAPI::Base';
13              
14             Tropo::WebAPI::Base::register();
15              
16             our $VERSION = 0.01;
17              
18             has milliseconds => (is => 'ro', isa => Int, required => 1);
19             has on_signals => (is => 'ro', isa => Str);
20             has allow_signals => (is => 'ro', isa => ArrayRef[]);
21              
22             sub BUILDARGS {
23 0     0 0   my ( $class, @args ) = @_;
24            
25 0 0         unshift @args, "milliseconds" if @args % 2 == 1;
26            
27 0           return { @args };
28             }
29              
30             1;
31              
32             __END__