File Coverage

blib/lib/Zodiac/Angle.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	3	3	100.0
total	38	42	90.4

package Zodiac::Angle;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Readonly;
use Unicode::UTF8 qw(decode_utf8);

Readonly::Hash our %ZODIAC => (
	1 => decode_utf8('♈'),
	2 => decode_utf8('♉'),
	3 => decode_utf8('♊'),
	4 => decode_utf8('♋'),
	5 => decode_utf8('♌'),
	6 => decode_utf8('♍'),
	7 => decode_utf8('♎'),
	8 => decode_utf8('♏'),
	9 => decode_utf8('♐'),
	10 => decode_utf8('♑'),
	11 => decode_utf8('♒'),
	12 => decode_utf8('♓'),
);

our $VERSION = 0.02;

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

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

	# Process parameters.
	set_params($self, @params);

	return $self;
}

sub angle2zodiac {
	my ($self, $angle) = @_;

	my $full_angle_degree = int($angle);
	$angle -= $full_angle_degree;
	$angle *= 60;
	my $angle_minute = int($angle);
	my $sign = int($full_angle_degree / 30);
	my $angle_degree = $full_angle_degree - ($sign * 30);

	my $zodiac_angle = $angle_degree.decode_utf8('°').
		$ZODIAC{$sign + 1}.$angle_minute.decode_utf8("′");

	return $zodiac_angle;
}

sub zodiac2angle {
	my ($self, $zodiac_angle) = @_;

	# TODO
	my $angle;

	return $angle;
}

1;

__END__