File Coverage

blib/lib/Tropo/WebAPI/On.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::On;
2              
3             # ABSTRACT: "On" something with Tropo
4              
5 1     1   675 use strict;
  1         2  
  1         35  
6 1     1   7 use warnings;
  1         2  
  1         27  
7              
8 1     1   5 use Moo;
  1         2  
  1         6  
9 1     1   310 use Types::Standard qw(Num Int Str Bool ArrayRef Dict);
  1         1  
  1         13  
10 1     1   1050 use Type::Tiny;
  1         2  
  1         150  
11              
12             extends 'Tropo::WebAPI::Base';
13              
14             Tropo::WebAPI::Base::register();
15              
16             our $VERSION = 0.01;
17              
18             has event => (is => 'ro', isa => Str, required => 1);
19             has next => (is => 'ro', isa => Str);
20              
21             sub BUILDARGS {
22 0     0 0   my ( $class, @args ) = @_;
23            
24 0 0         unshift @args, "event" if @args % 2 == 1;
25            
26 0           return { @args };
27             }
28              
29             1;
30              
31             __END__