File Coverage

blib/lib/HTML/Pictogram/MobileJp/EmojiNumber.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	9	10	90.0
condition	3	3	100.0
subroutine	6	6	100.0
pod	0	1	0.0
total	47	50	94.0

package HTML::Pictogram::MobileJp::EmojiNumber;
use strict;
use warnings;
use 5.00800;
use HTML::Pictogram::MobileJp::EmojiNumber::Map;
use HTML::Pictogram::MobileJp::Util qw/is_iphone/;

sub convert {
    my ( $class, $ma, $html ) = @_;

    $html =~ s{\[emoji:(\d+)\]}{
        if ($ma->is_docomo) {
            my $i = $DOCOMO->{$1};
            "&#x$i;";
        } elsif ($ma->is_softbank || is_iphone($ma->user_agent)) {
            my $s = $SOFTBANK->{$1};
            if ($s =~ /^\w+$/) {
                "&#x$s;";
            } else {
                $s;
            }
        } elsif ($ma->is_ezweb) {
            my $e = $EZWEB->{$1};
            if ($e =~ /^[0-9]+$/) {
                sprintf '', $e;
            } else {
                $e;
            }
        } else {
            # non-mobile
            "[emoji:$1]";
        }
    }ge;

    $html;
}

1;
__END__