File Coverage

blib/lib/Locale/Maketext/Extract/Plugin/Mason.pm

Criterion	Covered	Total	%
statement	12	18	66.6
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	18	24	75.0

package Locale::Maketext::Extract::Plugin::Mason;
$Locale::Maketext::Extract::Plugin::Mason::VERSION = '1.00';
use strict;
use base qw(Locale::Maketext::Extract::Plugin::Base);

# ABSTRACT: HTML::Mason (aka Mason 1) and Mason (aka Mason 2) format parser


sub file_types {
    return qw( * );
}

sub extract {
    my $self = shift;
    local $_ = shift;

    my $line = 1;

    # HTML::Mason (aka Mason 1)
    while (m!\G(.*?<&\|[ ]*/l(?:oc)?(?:[ ]*,[ ]*(.*?))?[ ]*&>(.*?))!sg) {
        my ( $vars, $str ) = ( $2, $3 );
        $line += ( () = ( $1 =~ /\n/g ) );    # cryptocontext!
        $self->add_entry( $str, $line, $vars );
    }

    # Mason (aka Mason 2)
    while (
        m!\G(.*?<%[ ]*(?:\$(?:\.|self->))fl(?:oc)?(?:[ ]*\((.*?)\))?[ ]*{[ ]*%>(.*?))!sg
        )
    {
        my ( $vars, $str ) = ( $2, $3 );
        $line += ( () = ( $1 =~ /\n/g ) );    # cryptocontext!
        $self->add_entry( $str, $line, $vars );
    }

}


1;

__END__