view release on metacpan or  search on metacpan

lib/Locale/Maketext/Extract/Plugin/TextTemplate.pm  view on Meta::CPAN

    if ( $_ =~ /^STARTTEXT$/m and $_ =~ /^ENDTEXT$/m ) {
        require HTML::Parser;
        require Lingua::EN::Sentence;

        {

            package Locale::Maketext::Extract::Plugin::TextTemplate::Parser;
$Locale::Maketext::Extract::Plugin::TextTemplate::Parser::VERSION = '1.00';
our @ISA = 'HTML::Parser';
            *{'text'} = sub {
                my ( $self, $str, $is_cdata ) = @_;
                my $sentences = Lingua::EN::Sentence::get_sentences($str)
                    or return;
                $str =~ s/\n/ /g;
                $str =~ s/^\s+//;
                $str =~ s/\s+$//;
                $self->add_entry( $str, $line );
            };
        }

        my $p = Locale::Maketext::Extract::Plugin::TextTemplate::Parser->new;