Acme-HidamariSketch

 view release on metacpan or  search on metacpan

eg/apartment.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!perl
use strict;
use utf8;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
binmode(STDOUT, ":utf8");
 
 
my $hidamari = Acme::HidamariSketch->new;
my $apartment = $hidamari->apartment;
 
# ドアをノックしないとだめっしょ?
# $apartment->knock;
 
# 各部屋をノックすると会えます

eg/characters.pl  view on Meta::CPAN

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!perl
use strict;
use utf8;
use lib File::Spec->catdir(dirname(__FILE__), '../lib');
binmode(STDOUT, ":utf8");
 
 
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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use utf8;
binmode(STDOUT, ":utf8");
 
 
 
subtest 'characters' => sub {
    my $hidamari   = Acme::HidamariSketch->new;
    my @characters = $hidamari->characters;
 
    ok $hidamari;

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
use strict;
use utf8;
binmode(STDOUT, ":utf8");
 
 
 
subtest 'apartment' => sub {
    my $hidamari  = Acme::HidamariSketch->new;
    my $apartment = $hidamari->apartment;
 
    ok $hidamari;

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

1
2
3
4
5
6
7
8
9
10
11
12
13
use strict;
use utf8;
binmode(STDOUT, ":utf8");
 
 
 
subtest 'year' => sub {
    # 今現在のひだまり荘には...
    my $hidamari  = Acme::HidamariSketch->new;
    my $apartment = $hidamari->apartment;



( run in 0.302 second using v1.01-cache-2.11-cpan-454fe037f31 )