Acme-HidamariSketch

 view release on metacpan or  search on metacpan

eg/apartment.pl  view on Meta::CPAN

#!perl
use strict;
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
binmode(STDOUT, ":utf8");

use Acme::HidamariSketch;

my $hidamari = Acme::HidamariSketch->new;
my $apartment = $hidamari->apartment;

# ドアをノックしないとだめっしょ？
# $apartment->knock;

# 各部屋をノックすると会えます

eg/characters.pl  view on Meta::CPAN

#!perl
use strict;
use warnings;
use utf8;
use File::Spec;
use File::Basename;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
binmode(STDOUT, ":utf8");

use Acme::HidamariSketch;

my $hidamari = Acme::HidamariSketch->new;
my @characters = $hidamari->characters;

# みんなの情報が見たい放題
foreach my $character (@characters) {
    printf "-----------------------\n";
    my $name     = $character->{name_ja}  ? $character->{name_ja}  : "undef";

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

use strict;
use warnings;
use utf8;
binmode(STDOUT, ":utf8");
use Test::More;

use Acme::HidamariSketch;


subtest 'characters' => sub {
    my $hidamari   = Acme::HidamariSketch->new;
    my @characters = $hidamari->characters;

    ok $hidamari;

t/03_apartment.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
binmode(STDOUT, ":utf8");
use Test::More;

use Acme::HidamariSketch;


subtest 'apartment' => sub {
    my $hidamari  = Acme::HidamariSketch->new;
    my $apartment = $hidamari->apartment;

    ok $hidamari;

t/04_year.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;
binmode(STDOUT, ":utf8");
use Test::More;

use Acme::HidamariSketch;


subtest 'year' => sub {
    # 今現在のひだまり荘には...
    my $hidamari  = Acme::HidamariSketch->new;
    my $apartment = $hidamari->apartment;