File Coverage

blib/lib/Text/PO/Parser.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Text::PO::Parser;

use warnings;
use strict;
use Carp;
use Class::Std::Utils;

use IO::File;

use version; our $VERSION = qv('0.0.1');


my $pofile;
my $open_file;

my $msgid;
my $comment;
my $msgstr;
my $line;
my $msgid_line;
my $current;
my $buf_comment;


sub new
    {
	my ($class,$ref_arg) = @_;

	my $obj = bless anon_scalar(), $class;

	$pofile = $ref_arg;

	$open_file = new IO::File ($pofile) or croak "can't open $_ : $!";

	$line = 0;
	$msgid_line =0;

	return  $obj;
    }

sub DESTROY
    {
	$open_file->close;
    }

sub end_file
    {
	return eof($open_file);
    }

sub next
    {
	my $continue = 1;

	$msgid="";
	$msgstr="";
	$comment=$buf_comment;
	my $current = "";


	while ((<$open_file> ))#and $continue))
	       {
		   $line++;

		   if(/^#/ and ($msgid eq ""))
		       {
			   $comment = $comment . $_;
		       }
		   elsif (/^#/ and not ($msgid eq ""))
		       {
			   $buf_comment = $_;
			   return;
		       }
		   elsif (/^msgid/)
		       {
			   $_ =~ s/^msgid//;
			   $_ =~ s/^ \"//;
			   $_ =~ s/\"$//;

			   $msgid = $msgid . $_;
			   $msgid_line = $line;

			   $current = "msgid";
		       }
		   elsif (/^msgstr/)
		       {
			   $_ =~ s/^msgstr//;
			   $_ =~ s/^ \"//;
			   $_ =~ s/\"$//;
			   $msgstr = $msgstr . $_;

			   $current = "msgstr";
		       }
		   else
		       {
			   unless (/^$/)
			       {
				   $_ =~ s/^ \"//;
				   $_ =~ s/\"$//;

				   if ($current eq "msgid")
				       {
					   $msgid = $msgid . $_;
				       }
				   elsif ($current eq "msgstr")
				       {
					   $msgstr = $msgstr . $_;
				       }
				   else
				       {
					   carp "there is probably a bug in the module code here at line $line of file $pofile";
				       }
			       }

		       }
	       }
	return;
	}

sub get_comment
    {
	return $comment;
    }

sub get_msgid
    {
	return $msgid;
    }

sub get_msgid_line
    {
	return $msgid_line;
    }

sub get_msgstr
    {
	return $msgstr;
    }

1; # Magic true value required at end of module
__END__