File Coverage

blib/lib/Moxy/Util.pm

Criterion	Covered	Total	%
statement	11	31	35.4
branch	2	6	33.3
condition	0	14	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	17	56	30.3

package Moxy::Util;
use strict;
use warnings;

# -------------------------------------------------------------------------
# detect response charset.
#   see Plagger::Util

my $Detector;
BEGIN {
    if ( eval { require Jcode; 1 } ) {
        $Detector = sub { my ($code, $nmatch) = Jcode::getcode($_[0]); $code };
    } elsif ( eval { require Encode::Detect::Detector; 1 } ) {
        $Detector = sub { Encode::Detect::Detector::detect($_[0]) };
    } else {
        require Encode::Guess;
        $Detector = sub {
            my @guess = qw(utf-8 euc-jp shift_jis); # xxx japanese only?
            eval { Encode::Guess::guess_encoding($_[0], @guess)->name };
        };
    }
}

sub HTTP::Response::charset {
    my ($self, ) = @_;

    return $self->{__charset} ||= do {
        my $charset;
        if ( $self->header('Content-Type') =~ /charset=([\w\-]+)/io ) {
            $charset = $1;
        }
        $charset ||= ( $self->content() =~ /<\?xml version="1.0" encoding="([\w\-]+)"\?>/ )[0];
        $charset ||= ( $self->content() =~ m!
        $charset ||= $Detector->( $self->content() );
        $charset ||= 'cp932';
        $charset;
    };
}

1;
__END__