File Coverage

blib/lib/WebService/ChatWork/Message.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	3	4	75.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	0	1	0.0
total	41	43	95.3

use strict;
use warnings;
package WebService::ChatWork::Message;
use Carp ( );
use String::CamelCase qw( camelize );
use Class::Load qw( try_load_class );
use WebService::ChatWork::Message::Tag;

# ABSTRACT: A Tag Builder of ChatWork

our $VERSION = '0.02';

sub new {
    my $class  = shift;
    my $tag    = shift;
    my @params = @_;
    my $package = "$class\::Tag";

    if ( !@params && $tag ne "hr" ) {
        @params = ( $tag );
        $tag = q{};
    }
    else {
        $package = sprintf "$class\::Tag::%s", camelize( $tag );
    }

    try_load_class( $package )
        or die "Could not load $package.";

    return $package->new( @params );
}

1;

__END__