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