File Coverage

blib/lib/WebService/Slack/WebApi/Dialog.pm
Criterion Covered Total %
statement 22 22 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod 0 1 0.0
total 29 30 96.6


line stmt bran cond sub pod time code
1             package WebService::Slack::WebApi::Dialog;
2 3     3   2389 use strict;
  3         9  
  3         93  
3 3     3   15 use warnings;
  3         7  
  3         83  
4 3     3   18 use utf8;
  3         6  
  3         16  
5 3     3   90 use feature qw/state/;
  3         8  
  3         197  
6              
7 3     3   19 use parent 'WebService::Slack::WebApi::Base';
  3         15  
  3         18  
8              
9 3     3   212 use JSON;
  3         6  
  3         16  
10              
11             sub open {
12 1     1 0 32 state $rule = Data::Validator->new(
13             dialog => { isa => 'HashRef', optional => 0 },
14             trigger_id => { isa => 'Str', optional => 0, },
15             )->with('Method', 'AllowExtra');
16 1         1705 my ($self, $args, %extra) = $rule->validate(@_);
17              
18 1         109 $args->{dialog} = encode_json $args->{dialog};
19 1         8 return $self->request('open', { %$args, %extra });
20             }
21              
22             1;