File Coverage

blib/lib/HTML/ReplacePictogramMobileJp.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package HTML::ReplacePictogramMobileJp;
use strict;
use warnings;
our $VERSION = '0.07';
use Params::Validate ':all';
use HTML::ReplacePictogramMobileJp::DoCoMo;
use HTML::ReplacePictogramMobileJp::EZweb;
use HTML::ReplacePictogramMobileJp::Vodafone;
use HTML::ReplacePictogramMobileJp::AirHPhone;

my $long_name_for = +{
    I => 'DoCoMo',
    E => 'EZweb',
    V => 'Vodafone',
    H => 'AirHPhone',
};

sub replace {
    my $class = shift;
    validate(
        @_,
        +{
            carrier  => qr{^[IEVH]$},
            charset  => qr{^(?:utf-?8|sjis)$}i,
            callback => +{ type => CODEREF },
            html     => +{ type => SCALAR },
        }
    );
    my %args = @_;

    my $klass = join "::", __PACKAGE__, $long_name_for->{$args{carrier}};
    my $method = $args{charset} =~ /^utf-?8$/i ? 'utf8' : 'sjis';
    $klass->$method(html => $args{html}, callback => $args{callback});
}

1;
__END__