view release on metacpan or  search on metacpan

Detect.pm  view on Meta::CPAN

__PACKAGE__->Define(qw(Detect));

our $VERSION = "1.01";

sub perlio_ok { 0 }

sub decode ($$;$) {
    my ($self, $octets, $check) = @_;
    my $charset = detect($octets) || 'Windows-1252';
    my $e = find_encoding($charset) or die "Unknown encoding: $charset";
    my $decoded = $e->decode($octets, $check || 0);
    $_[1] = $octets if $check;
    return $decoded;
}

1;

__END__

=head1 NAME

Encode::Detect - An Encode::Encoding subclass that detects the encoding of data