Acme-HidamariSketch
view release on metacpan or search on metacpan
eg/apartment.pl view on Meta::CPAN
123456789101112131415161718#!perl
use
strict;
use
warnings;
use
utf8;
use
File::Spec;
use
File::Basename;
binmode
(STDOUT,
":utf8"
);
use
Acme::HidamariSketch;
my
$hidamari
= Acme::HidamariSketch->new;
my
$apartment
=
$hidamari
->apartment;
# ドアをノックã—ãªã„ã¨ã ã‚ã£ã—ょ?
# $apartment->knock;
# å„部屋をノックã™ã‚‹ã¨ä¼šãˆã¾ã™
eg/characters.pl view on Meta::CPAN
123456789101112131415161718#!perl
use
strict;
use
warnings;
use
utf8;
use
File::Spec;
use
File::Basename;
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
1234567891011121314use
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
1234567891011121314use
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
12345678910111213use
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;
( run in 0.302 second using v1.01-cache-2.11-cpan-454fe037f31 )