File Coverage

blib/lib/Zodiac/Tiny.pm

Criterion	Covered	Total	%
statement	11	26	42.3
branch	14	52	26.9
condition	0	3	0.0
subroutine	3	3	100.0
pod	1	1	100.0
total	29	85	34.1

package Zodiac::Tiny;

our $DATE = '2015-11-28'; # DATE
our $VERSION = '0.01'; # VERSION

use 5.010001;
#use strict;
#use warnings;

use Exporter;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
                       zodiac_of
               );

sub zodiac_of {
    my $date = shift;

    my ($m, $d);
    if (my $ref = ref($date)) {
        if ($ref eq 'DateTime' || $ref eq 'Time::Moment') {
            $m = $date->month;
            $d = $date->day_of_month;
        } else {
            die "Invalid date object, only DateTime and Time::Moment ".
                "currently supported";
        }
    } else {
        ($m, $d) = $date =~ /\A(?:\d\d\d\d-)?(\d\d)-(\d\d)\z/
            or die "Invalid date string, please use YYYY-MM-DD";
    }

    if ($m == 1) {
        return $d <= 19 ? "capricornus" : "aquarius";
    } elsif ($m == 2) {
        return $d <= 18 ? "aquarius" : "pisces";
    } elsif ($m == 3) {
        return $d <= 20 ? "pisces" : "aries";
    } elsif ($m == 4) {
        return $d <= 19 ? "aries" : "taurus";
    } elsif ($m == 5) {
        return $d <= 20 ? "taurus" : "gemini";
    } elsif ($m == 6) {
        return $d <= 20 ? "gemini" : "cancer";
    } elsif ($m == 7) {
        return $d <= 22 ? "cancer" : "leo";
    } elsif ($m == 8) {
        return $d <= 22 ? "leo" : "virgo";
    } elsif ($m == 9) {
        return $d <= 22 ? "virgo" : "libra";
    } elsif ($m == 10) {
        return $d <= 22 ? "libra" : "scorpius";
    } elsif ($m == 11) {
        return $d <= 21 ? "scorpius" : "sagittarius";
    } else {
        return $d <= 21 ? "sagittarius" : "capricornus";
    }
}

1;
# ABSTRACT: Look up zodiac sign for a given date

__END__