File Coverage

blib/lib/WebService/ChatWork/Message/Tag/Info.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	1	0.0
total	27	28	96.4

use strict;
use warnings;
package WebService::ChatWork::Message::Tag::Info;
use overload q{""} => \&as_string;
use constant PRIMARY => "message";
use Mouse;

extends "WebService::ChatWork::Message::Tag";

has message => ( is => "ro", isa => "Str" );
has title   => ( is => "ro", isa => "Str" );

sub as_string {
    my $self = shift;
    if ( defined $self->title ) {
        return sprintf "[info][title]%s[/title]%s[/info]", $self->title, $self->message;
    }
    else {
        return sprintf "[info]%s[/info]", $self->message;
    }
}

1;