view release on metacpan or  search on metacpan

lib/Convert/Ethiopic/String.pm  view on Meta::CPAN

	#
	# reset string if we've been passed one:
	#
	# $self->string ( shift ) unless ( $_[0] =~ /^\d/ );
	$self->string ( shift ) if ( @_ && $_[0] !~ /^\d/ );


	$self->_convert ( @_ );

}



sub string
{
my $self = shift;


	$self->{string} = $_[0] if ( @_ );

	$self->{string};
}



sub sysIn
{
my $self = shift;


	$self->{sysIn} = $_[0] if ( @_ );

	$self->{sysIn};
}



sub sysOut
{
my $self = shift;


	$self->{sysOut} = $_[0] if ( @_ );

	$self->{sysOut};
}


#########################################################
# Do not change this, Do not put anything below this.
# File must return "true" value at termination
1;
##########################################################


__END__


=head1 NAME

Ethiopic::Time - conversions of calendar systems to/from Ethiopic and Gregorian.

=head1 SYNOPSIS

  use LiveGeez::Request;
  require Convert::Ethiopic::Time;
  my $r = LiveGeez::Request->new;

	ReadParse ( \%input );
	$r->ParseInput ( \%input );

	my $t = Convert::Ethiopic::Time->new ( $r );

	$t->GregorianToEthiopic;

	print "$t->{euDay}/$t->{euMonth}/$t->{euYear} = ";
	print "$t->{etDay}/$t->{etMonth}/$t->{etYear}\n" 

=head1 DESCRIPTION

Ethiopic::Time and Ethiopic::Cstocs are designed as interfaces to the methods in the
Ethiopic:: module and is oriented as services for the LiveGeez:: module.  In this
version Ethiopic::Time expects to receive an object with hash elements using
the keys:

=over 4

=item 'calIn'

which can be "euro or "ethio".

=item  'date'

a comma separated list as "day,month,year".

=item 'LCInfo'

locale settings I<see the LibEth man pages>.

=back

These keys are set when using a LiveGeez::Request object as shown in the example.

=head1 AUTHOR

Daniel Yacob,  L<LibEth@EthiopiaOnline.Net|mailto:LibEth@EthiopiaOnline.Net>

=head1 SEE ALSO

perl(1).  LiveGeez(3), L<http://libeth.netpedia.net|http://libeth.netpedia.net>

=cut