File Coverage

blib/lib/Pod/L10N/Model.pm

Criterion	Covered	Total	%
statement	58	58	100.0
branch	19	22	86.3
condition	3	3	100.0
subroutine	3	3	100.0
pod	0	2	0.0
total	83	88	94.3

package Pod::L10N::Model;

use Carp;

sub decode_file {
    my $fn = shift;
    open my $f1, '<', $fn or die "$!";
    my @slurp = (<$f1>);
    close $f1;
    my $sl = join '', @slurp;
    return decode($sl);
}

sub decode {
    my $ss = $_[0];
    $ss =~ s/\n{3,}/\n\n/g;
    $ss =~ s/\n$//;
    my @sp = split /\n\n/, $ss;

    my @enjp = ();
    my $f = 0;
    my $en;
    my $jp;
    my $c = 0;
    my $com;

    for (@sp){
	s/^\n*//;

	if($f == 10){
	    if(/^[(].+[)]$/){ #
		push @enjp, [$com, $_];
		$f = 0;
		next;
	    } else {
		push @enjp, [$com, undef];
		$f = 0;
	    }
	}

	if(/^=begin original/){
	    $f = 1;
	    $c = 0;
	    next;
	}
	if (/^=end original/){
	    $f = 2;
	    if($c == 0){
		my ($en1, $jp1) = @{pop @enjp};
		croak "end without begin\n$en1\n--\n$jp1\n";
	    }
	    next;
	}
	if (/^=head/ || /^=item/){
	    $f = 10;
	    $com = $_;
	    next;
	}

	if($f == 1){
	    $en .= $_;
	    $c++;
	    next;
	}

	if($f == 2){
	    $jp .= $_;
	    $c--;
	    if($c == 0){
		push @enjp, [$en, $jp];
		$en = '';
		$jp = '';
		$f = 0;
	    }
	    next;
	}

	if($f == 0){
	    push @enjp, [$_, undef];
	}
    }

    return \@enjp;
}

1;