File Coverage

blib/lib/Acme/Songmu.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch			n/a
condition			n/a
subroutine	11	11	100.0
pod	3	3	100.0
total	41	42	97.6

package Acme::Songmu;
use 5.010;
use strict;
use warnings;
use utf8;
use Encode;

use version 0.77; our $VERSION = version->declare("v0.1.0");

use Time::Piece ();
use Class::Accessor::Lite::Lazy 0.03 (
    ro      => [qw/birthday first_name last_name/],
    ro_lazy => {
        age => sub {
            int(
                (Time::Piece->localtime->strftime('%Y%m%d') -
                    shift->birthday->strftime('%Y%m%d')
                ) / 10000)
        },
    },
);

sub instance {
    state $_instance = bless {
        birthday   => Time::Piece->strptime('1980-06-05', '%Y-%m-%d'),
        first_name => 'Masayuki',
        last_name  => 'Matsuki',
    }, __PACKAGE__;
}

sub name {
    my $self = shift;
    sprintf '%s %s', $self->first_name, $self->last_name;
}

sub gmu {
    say encode_utf8 'ぐむー';
}

1;
__END__