core/lang/Volt.pm
2015-09-27 17:28:17 +02:00

33 lines
631 B
Perl

package Locale::Maketext::Extract::Plugin::Volt;
$Locale::Maketext::Extract::Plugin::Volt::VERSION = '1.00';
use strict;
use base qw(Locale::Maketext::Extract::Plugin::Base);
# ABSTRACT: Volt template parser
sub file_types {
return qw( volt );
}
sub extract {
my $self = shift;
local $_ = shift;
my $line = 1;
# Volt Template:
$line = 1;
pos($_) = 0;
while (m/\G(.*?(?<!\{)\{\{(?!\{)\s*lang\._\('(.*?)'\)\s*\}\})/sg) {
my ( $vars, $str ) = ( '', $2 );
$line += ( () = ( $1 =~ /\n/g ) ); # cryptocontext!
$self->add_entry( $str, $line, $vars );
}
}
1;
__END__