File Coverage

blib/lib/Acme/HidamariSketch/Apartment.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	2	0.0
total	36	39	92.3

package Acme::HidamariSketch::Apartment;
use strict;
use warnings;
use utf8;
use Data::Dumper;


our $VERSION = "0.05";


sub new {
    my ($class, $args) = @_;


    my $self = bless {
        tenants => $args->{tenants},
        year    => $args->{year}
    }, $class;

    return $self;
}

sub knock {
    my ($self, $knock_room) = @_;

    if (!defined $knock_room) {
        # 部屋が存在しない
        return undef;
    }

    for my $tenant (@{$self->{tenants}}) {
        my $room_number = $tenant->{room_number}->{$self->{year}};
        if (defined $room_number and $knock_room == $room_number) {
            return $tenant;
        };
    }

    # 存在しない部屋番号
    return undef;
}