File Coverage

blib/lib/Slack/RTM/Bot/Response.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package Slack::RTM::Bot::Response;
2            
3 8     8   59 use strict;
  8         16  
  8         319  
4 8     8   44 use warnings;
  8         24  
  8         859  
5            
6             sub new {
7 5     5 0 10 my $pkg = shift;
8 5         17 my $args = {@_};
9 5         9 my $self = {%{$args->{buffer}}};
  5         21  
10 5         14 $self->{user} = $args->{user};
11 5         10 $self->{channel} = $args->{channel};
12 5         19 return bless $self, $pkg;
13             }
14            
15             1;