File Coverage

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

Criterion	Covered	Total	%
statement	31	31	100.0
branch	2	2	100.0
condition	3	3	100.0
subroutine	7	7	100.0
pod	2	2	100.0
total	45	45	100.0

package Locale::Maketext::Extract::Plugin::Haml;
$Locale::Maketext::Extract::Plugin::Haml::VERSION = '1.00';
use strict;
use warnings;
use base qw(Locale::Maketext::Extract::Plugin::Base);
use Text::Haml;
use Locale::Maketext::Extract::Plugin::Perl;

# ABSTRACT: HAML format parser


sub file_types {
    return qw( haml );
}

sub extract {
    my $self    = shift;
    my $content = shift;

    my $haml = Text::Haml->new;
    $haml->parse($content);

    # Checking for expr and text allows us to recognise
    # the types of HTML entries we are interested in.
    my @texts = map { $_->{text} }
      grep { $_->{text} and ( $_->{expr} or $_->{type} eq 'block') }
          @{ $haml->tape };

    my $perl = Locale::Maketext::Extract::Plugin::Perl->new;

    # Calling extract on our strings will cause
    # EPPerl to store our entries internally.
    map { $perl->extract($_) } @texts;

    map { $self->add_entry( @{$_} ) } @{ $perl->entries };
}


1;

__END__