File Coverage

blib/lib/HTML/Chunks/Local.pm

Criterion	Covered	Total	%
statement	6	31	19.3
branch	0	4	0.0
condition			n/a
subroutine	2	7	28.5
pod	5	5	100.0
total	13	47	27.6

package HTML::Chunks::Local;

our $VERSION = "1.02";

use strict;
use base qw(HTML::Chunks);

sub new
{
	my $class = shift;
	my $self = $class->SUPER::new(@_);

	$self->{langdefaults} = [];

	return $self;
}

sub output {
	my $self = shift;
	my $name = shift;
	my $uselang = shift;

	foreach my $lang (@{$uselang}, @{$self->{langdefaults}}) {
		if (defined($self->{chunk}{"$name\_$lang"})) {
			return $self->SUPER::output("$name\_$lang", @_);
		}
	}
	# our last default is the chunk name with no language suffix
	return $self->SUPER::output($name, @_);
}

sub setLangDefaults {
	my $self = shift;
	($self->{langdefaults}) = @_;
}

sub getLangDefaults {
	my $self = shift;
	return $self->{langdefaults};
}

sub guessLanguage {
	my $self = shift;
	my @return;

	foreach my $lang (@_) {
		$lang =~ s/\-/\_/;
		push(@return, $lang);
		if ($lang =~ /(.+)\_/) {
			push(@return, $1);
		}
	}
	return \@return;
}

1;

__END__