-
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 {