File Coverage

blib/lib/HTML/HTML5/Parser/Charset/UniversalCharDet.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	3	12	25.0
condition	1	3	33.3
subroutine	5	5	100.0
pod	0	1	0.0
total	25	44	56.8

package HTML::HTML5::Parser::Charset::UniversalCharDet;

## skip Test::Tabs
use strict;
use warnings;
use IO::HTML ();

our $VERSION='0.991';
our $DEBUG;

# this really shouldn't work, but for some reason it does...
sub _detect {
	return +{ encoding => 'UTF-8' } if !utf8::is_utf8($_[0]); # huh?
	open my $fh, '<:raw', \$_[0];
	my $e = IO::HTML::sniff_encoding($fh => 'string');
	return +{ encoding => $e } if defined $e;
	return +{};
}

sub detect_byte_string ($$) {
  my $de;
  eval {
    $de = _detect $_[1];
    1;
  } or do {
    warn $@ unless $DEBUG;
    die $@ if $DEBUG;
  };
  if (defined $de and defined $de->{encoding}) {
    return lc $de->{encoding};
  } else {
    return undef;
  }
} # detect_byte_string

#Copyright 2007-2011 Wakaba
#Copyright 2009-2012 Toby Inkster
#
#This library is free software; you can redistribute it
#and/or modify it under the same terms as Perl itself.

1;