File Coverage

blib/lib/WebService/ChatWork/Message/Tag/Piconname.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 0 1 0.0
total 23 24 95.8


line stmt bran cond sub pod time code
1 1     1   745 use strict;
  1         1  
  1         42  
2 1     1   6 use warnings;
  1         1  
  1         61  
3             package WebService::ChatWork::Message::Tag::Piconname;
4 1     1   5 use overload q{""} => \&as_string;
  1         1  
  1         9  
5 1     1   49 use constant PRIMARY => "account_id";
  1         1  
  1         68  
6 1     1   5 use Mouse;
  1         0  
  1         25  
7              
8             extends "WebService::ChatWork::Message::Tag";
9              
10             has account_id => ( is => "ro", isa => "Int" );
11              
12             sub as_string {
13 2     2 0 71 my $self = shift;
14 2         20 return sprintf "[piconname:%d]", $self->account_id;
15             }
16              
17             1;