File Coverage

blib/lib/App/MultiLanguage.pm

Criterion	Covered	Total	%
statement	9	14	64.2
branch			n/a
condition			n/a
subroutine	3	5	60.0
pod	0	2	0.0
total	12	21	57.1

#
# Copyright (c) 2008-2009 Pan Yu ([e-mail]).
# All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#

package App::MultiLanguage;

use 5.006;
use strict;
use vars qw($VERSION);

$VERSION = '0.02';


sub language {
	my $self = shift;
	my $language = shift;

	$self->{language} = $language;
}

sub parse {
	my $self = shift;

	return $self->{result};
}


1;

__END__