challenge-120/lance-wicks/perl/lib/Clock.pm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

package Clock;

use Moo;

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

    $t =~ /^(\d+):(\d+)$/;
    my $hour_hand_angle   = $self->angle_hour( h => $1, m => $2 );
    my $minute_hand_angle = $self->angle_minute( h => $1, m => $2 );

    return $hour_hand_angle - $minute_hand_angle;

}

sub angle_hour {
    my ( $self, %args ) = @_;

    my $h = $args{h};
    my $m = $args{m};

    my $mins = ( $h * 60 ) + $m;

    return $mins * 0.5;
}

sub angle_minute {
    my ( $self, %args ) = @_;

    my $h = $args{h};
    my $m = $args{m};

    return $m * 6;
}

1;