File Coverage

blib/lib/Zodiac/Angle.pm

Criterion	Covered	Total	%
statement	63	71	88.7
branch	25	30	83.3
condition	3	3	100.0
subroutine	10	11	90.9
pod	3	3	100.0
total	104	118	88.1

package Zodiac::Angle;

use strict;
use warnings;

use Class::Utils qw(set_params);
use Error::Pure qw(err);
use List::Util 1.33 qw(none);
use Readonly;
use Unicode::UTF8 qw(decode_utf8);

Readonly::Array our @SIGN_TYPES => qw(ascii sign struct);
Readonly::Hash our %ZODIAC => (
	1 => {
		'sign' => decode_utf8('♈'), # Aries/Beran
		'ascii' => 'ar',
		'ascii_long' => 'aries',
	},
	2 => {
		'sign' => decode_utf8('♉'), # Taurus/Býk
		'ascii' => 'ta',
		'ascii_long' => 'taurus',
	},
	3 => {
		'sign' => decode_utf8('♊'), # Gemini/Blíženci
		'ascii' => 'ge',
		'ascii_long' => 'gemini',
	},
	4 => {
		'sign' => decode_utf8('♋'), # Cancer/Rak
		'ascii' => 'cn',
		'ascii_long' => 'cancer',
	},
	5 => {
		'sign' => decode_utf8('♌'), # Leo/Lev
		'ascii' => 'le',
		'ascii_long' => 'leo',
	},
	6 => {
		'sign' => decode_utf8('♍'), # Virgo/Panna
		'ascii' => 'vi',
		'ascii_long' => 'virgo',
	},
	7 => {
		'sign' => decode_utf8('♎'), # Libra/Váhy
		'ascii' => 'li',
		'ascii_long' => 'libra',
	},
	8 => {
		'sign' => decode_utf8('♏'), # Scorpio/Štír
		'ascii' => 'sc',
		'ascii_long' => 'scorpio',
	},
	9 => {
		'sign' => decode_utf8('♐'), # Sagittarius/Střelec
		'ascii' => 'sa',
		'ascii_long' => 'sagittarius',
	},
	10 => {
		'sign' => decode_utf8('♑'), # Capricorn/Kozoroh
		'ascii' => 'cp',
		'ascii_long' => 'capricorn',
	},
	11 => {
		'sign' => decode_utf8('♒'), # Aquarius/Vodnář
		'ascii' => 'aq',
		'ascii_long' => 'aquarius',
	},
	12 => {
		'sign' => decode_utf8('♓'), # Pisces/Ryby
		'ascii' => 'pi',
		'ascii_long' => 'pisces',
	},
);
Readonly::Scalar our $SPACE => ' ';
Readonly::Scalar our $SEP => '|';

our $VERSION = 0.07;

# 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, $opts_hr) = @_;

	# Options.
	if (! defined $opts_hr || ! exists $opts_hr->{'minute'}) {
		$opts_hr->{'minute'} = 1;
	}
	if (! exists $opts_hr->{'second'}) {
		$opts_hr->{'second'} = 0;
	}
	if (! exists $opts_hr->{'second_round'}) {
		$opts_hr->{'second_round'} = 4;
	}
	if (! exists $opts_hr->{'sign_type'}) {
		$opts_hr->{'sign_type'} = 'sign';
	}
	if (none { $opts_hr->{'sign_type'} eq $_ } @SIGN_TYPES) {
		err "Parameter 'sign_type' is bad. Possible values are 'sign', 'ascii' and 'struct'.";
	}

	my $ret = {};

	# Full angle degree.
	my $full_angle_degree = int($angle);
	$angle -= $full_angle_degree;
	$angle *= 60;

	# Angle minute.
	if ($opts_hr->{'minute'}) {
		$ret->{'angle_minute'} = int($angle);
		$angle -= $ret->{'angle_minute'};
		$angle *= 60;
	}

	# Angle second.
	if ($opts_hr->{'second'}) {
		my $print_format = '%0.'.$opts_hr->{'second_round'}.'f';
		$ret->{'angle_second'} = sprintf($print_format, $angle);
	}

	# Angle sign.
	$ret->{'sign'} = int($full_angle_degree / 30);

	# Angle degree in sign.
	$ret->{'angle_degree'} = $full_angle_degree - ($ret->{'sign'} * 30);

	# Output.
	my $zodiac_angle;

	# Output with sign (UTF-8).
	if ($opts_hr->{'sign_type'} eq 'sign') {
		$zodiac_angle = $ret->{'angle_degree'}.decode_utf8('°').
			$ZODIAC{$ret->{'sign'} + 1}->{'sign'};
		if ($opts_hr->{'minute'}) {
			$zodiac_angle .= $ret->{'angle_minute'}.decode_utf8("′");
			if ($opts_hr->{'second'}) {
				$zodiac_angle .= $ret->{'angle_second'}.decode_utf8("′′");
			}
		}

	# Output with ascii.
	} elsif ($opts_hr->{'sign_type'} eq 'ascii') {
		$zodiac_angle = $ret->{'angle_degree'}.$SPACE.
			$ZODIAC{$ret->{'sign'} + 1}->{'ascii'};
		if ($opts_hr->{'minute'}) {
			$zodiac_angle .= $SPACE.$ret->{'angle_minute'}."'";
			if ($opts_hr->{'second'}) {
				$zodiac_angle .= $ret->{'angle_second'}."''";
			}
		}

	# Structure.
	} else {
		$zodiac_angle = $ret->{'angle_degree'}.decode_utf8('°').$SEP.
			$ZODIAC{$ret->{'sign'} + 1}->{'ascii_long'};
		if ($opts_hr->{'minute'}) {
			$zodiac_angle .= $SEP.$ret->{'angle_minute'}.decode_utf8("′");
			if ($opts_hr->{'second'}) {
				$zodiac_angle .= $SEP.$ret->{'angle_second'}.decode_utf8("′′");
			}
		}
	}

	return $zodiac_angle;
}

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

	# TODO
	my $angle;

	return $angle;
}

1;

__END__