File Coverage

blib/lib/Text/MessageFormat.pm

Criterion	Covered	Total	%
statement	50	50	100.0
branch	8	8	100.0
condition			n/a
subroutine	17	17	100.0
pod	0	2	0.0
total	75	77	97.4

package Text::MessageFormat;

use strict;
use vars qw($VERSION);
$VERSION = 0.01;

use Text::Balanced qw(extract_multiple extract_bracketed extract_delimited);

sub new {
    my($class, $format) = @_;
    my $formats = $class->_parse_format($format);
    bless { _formats => $formats }, $class;
}

sub format {
    my($self, @args) = @_;
    return join '', map $_->format(\@args), @{$self->{_formats}};
}

sub _parse_format {
    my($class, $format) = @_;
    my @blocks = map {
	if (UNIVERSAL::isa($_, 'FormatElement')) {
	    $class->_handle_format_element($$_);
	} elsif (UNIVERSAL::isa($_, 'QuotedString')) {
	    $class->_handle_quoted_string($$_);
	} else {
	    $class->_handle_literal($_);
	}
    } extract_multiple(
	$format, [
	    { FormatElement => sub { extract_bracketed($_[0], q({})); } },
	    { QuotedString  => sub { extract_delimited($_[0], q(')); } },
	],
    );
    return \@blocks;
}

sub _handle_format_element {
    my($class, $pattern) = @_;
    my($index, $type, $style) = split /,\s*/, ($pattern =~ /^{(.*)}$/)[0], 3;

    my $element_class = 'Text::MessageFormat::Element';
    $element_class .= '::' . ucfirst $type if $type;
    return bless {
	index => $index,
	type  => $type,
	style => $style,
    }, $element_class;
}
sub _handle_quoted_string {
    my($class, $pattern) = @_;
    $pattern =~ s/^'(.*)'$/$1/;
    my $literal = $pattern eq '' ? q(') : $pattern;
    return bless {
	literal => $literal,
    }, 'Text::MessageFormat::String';
}

sub _handle_literal {
    my($class, $pattern) = @_;
    return bless {
	literal => $pattern,
    }, 'Text::MessageFormat::String';
}

package Text::MessageFormat::String;
sub format { shift->{literal} }

package Text::MessageFormat::Element;
sub format {
    my($self, $args) = @_;
    return $args->[$self->{index}];
}

package Text::MessageFormat::Element::Number;
use base qw(Text::MessageFormat::Element);

package Text::MessageFormat::Element::Date;
use base qw(Text::MessageFormat::Element);

package Text::MessageFormat::Element::Time;
use base qw(Text::MessageFormat::Element);

package Text::MessageFormat::Element::Choice;
use base qw(Text::MessageFormat::Element);

1;
__END__