File Coverage

blib/lib/App/Angle2Zodiac.pm

Criterion	Covered	Total	%
statement	15	30	50.0
branch	0	4	0.0
condition	0	6	0.0
subroutine	5	7	71.4
pod	2	2	100.0
total	22	49	44.9

package App::Angle2Zodiac;

use strict;
use warnings;

use Getopt::Std;
use Unicode::UTF8 qw(encode_utf8);
use Zodiac::Angle;

our $VERSION = 0.01;

# Constructor.
sub new {
	my ($class, @params) = @_;

	# Create object.
	my $self = bless {}, $class;

	# Object.
	return $self;
}

# Run.
sub run {
	my $self = shift;

	# Process arguments.
	$self->{'_opts'} = {
		'a' => 0,
		'h' => 0,
	};
	if (! getopts('ah', $self->{'_opts'}) || @ARGV < 1
		|| $self->{'_opts'}->{'h'}) {

		print STDERR "Usage: $0 [-a] [-h] [--version] angle\n";
		print STDERR "\t-a\tOutput will be in ascii form ".
			"(e.g. 2 sc 31'28.9560'').\n";
		print STDERR "\t-h\t\tHelp.\n";
		print STDERR "\t--version\tPrint version.\n";
		print STDERR "\tangle\tAngle in numeric (e.g. 212.5247100).\n";
		return 1;
	}
	$self->{'_angle'} = shift @ARGV;

	print encode_utf8(Zodiac::Angle->new->angle2zodiac($self->{'_angle'}, {
		'second' => 1,
		$self->{'_opts'}->{'a'} ? (
			'sign_type' => 'ascii',
		) : (),
	}))."\n";

	return 0;
}

1;


__END__