Acme-Songmu

 view release on metacpan or  search on metacpan

lib/Acme/Songmu.pm  view on Meta::CPAN

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(

lib/Acme/Songmu.pm  view on Meta::CPAN

        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__

=encoding utf-8

=for stopwords sandboxing

=head1 NAME

t/01_singleton.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Test::More;
use Acme::Songmu;

subtest singleton => sub {
    my $songmu = Acme::Songmu->instance;
    my $songmu2 = Acme::Songmu->instance;

    is $songmu.q(), $songmu2.q(), 'singleton ok';
};

t/02_gmu.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
use Encode;
use Test::More;
use Test::Requires 'Capture::Tiny';
use Acme::Songmu;

my $songmu = Acme::Songmu->instance;
my ($stdout) = Capture::Tiny::capture { $songmu->gmu };
is $stdout, encode_utf8("ぐむー\n");

done_testing;