File Coverage

blib/lib/WebService/ChatWork/Message/Tag/Rp.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 19 20 95.0


line stmt bran cond sub pod time code
1 1     1   976 use strict;
  1         2  
  1         54  
2 1     1   7 use warnings;
  1         2  
  1         74  
3             package WebService::ChatWork::Message::Tag::Rp;
4 1     1   6 use overload q{""} => \&as_string;
  1         2  
  1         12  
5 1     1   77 use Mouse;
  1         2  
  1         10  
6              
7             extends "WebService::ChatWork::Message::Tag";
8              
9             has account_id => ( is => "ro", isa => "Int" );
10             has room_id => ( is => "ro", isa => "Int" );
11             has message_id => ( is => "ro", isa => "Int" );
12              
13             sub as_string {
14 1     1 0 53 my $self = shift;
15 1         16 sprintf "[rp aid=%d to %d--%d]", $self->account_id, $self->room_id, $self->message_id;
16             }
17              
18             1;