File Coverage

blib/lib/WWW/Mechanize/DecodedContent.pm

Criterion	Covered	Total	%
statement	9	16	56.2
branch	0	6	0.0
condition	0	3	0.0
subroutine	3	4	75.0
pod	0	1	0.0
total	12	30	40.0

package WWW::Mechanize::DecodedContent;

use strict;
our $VERSION = '0.02';

use Encode ();
use HTTP::Response::Encoding;

sub WWW::Mechanize::decoded_content {
    my $mech = shift;
    my $content = $mech->content(@_);
    return $content unless $mech->{ct} && $mech->{ct} =~ m!^text/!i;

    ## WWW::Mechanize 1.50 or over calls decoded_content() to get page
    return $content if Encode::is_utf8($content);

    if (my $enc = $mech->res->encoding) {
        return Encode::decode($enc, $content);
    } else {
        return;
    }
}

1;
__END__