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   3752 use strict;
  3         8  
  3         158  
3 3     3   18 use warnings;
  3         6  
  3         294  
4 3     3   23 use utf8;
  3         7  
  3         20  
5 3     3   174 use feature qw/state/;
  3         7  
  3         415  
6              
7 3     3   21 use parent 'WebService::Slack::WebApi::Base';
  3         5  
  3         20  
8              
9 3     3   267 use JSON;
  3         6  
  3         24  
10              
11             sub open {
12 1     1 0 51 state $rule = Data::Validator->new(
13             dialog => { isa => 'HashRef', optional => 0 },
14             trigger_id => { isa => 'Str', optional => 0, },
15             )->with('Method', 'AllowExtra');
16 1         2300 my ($self, $args, %extra) = $rule->validate(@_);
17              
18 1         142 $args->{dialog} = encode_json $args->{dialog};
19 1         11 return $self->request('open', { %$args, %extra });
20             }
21              
22             1;