• Parser.pm

    106 107  
    60 60 $content = <$fh>;
    61 61 }
    62 62 if ( $content ) {
    63 warn Dumper($self);
    64 63 unless ( $encoding ) {
    65 64 $encoding = $self->__try_content_encoding( substr($content, 0, 350) );
    66 $self->{encoding} = $encoding;
    67 65 if ( $encoding && $encoding ne 'utf-8' ) {
    68 66 Encode::from_to($content, $encoding, 'utf-8');
    69 67 }
    70 68 }
    69 $self->{encoding} = $encoding;
    70 warn Dumper($self) if $DEBUG;
    71 71 $self->{content} = $content;
    72 72 $self->{success} = 1;
    73 73 } else {