File Coverage

blib/lib/Tropo/WebAPI/Say.pm
Criterion Covered Total %
statement 18 18 100.0
branch 1 2 50.0
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 25 27 92.5


line stmt bran cond sub pod time code
1             package Tropo::WebAPI::Say;
2              
3             # ABSTRACT: "Say" something with Tropo
4              
5 1     1   594 use strict;
  1         2  
  1         37  
6 1     1   7 use warnings;
  1         2  
  1         35  
7              
8 1     1   6 use Moo;
  1         2  
  1         6  
9 1     1   316 use Types::Standard qw(Int Str Bool ArrayRef Dict);
  1         2  
  1         13  
10 1     1   947 use Type::Tiny;
  1         2  
  1         216  
11              
12             extends 'Tropo::WebAPI::Base';
13              
14             Tropo::WebAPI::Base::register();
15              
16             our $VERSION = 0.01;
17              
18             has value => (
19             is => 'ro',
20             isa => Str,
21             required => 1,
22             );
23              
24             has as => (
25             is => 'ro',
26             isa => Str,
27             );
28              
29             has event => (
30             is => 'ro',
31             isa => Str,
32             );
33              
34             has voice => (
35             is => 'ro',
36             isa => Int,
37             );
38              
39             has allow_signals => (
40             is => 'ro',
41             isa => ArrayRef[],
42             );
43              
44             sub BUILDARGS {
45 1     1 0 4126 my ( $class, @args ) = @_;
46            
47 1 50       12 unshift @args, "value" if @args % 2 == 1;
48            
49 1         25 return { @args };
50             }
51              
52             1;
53              
54             __END__