sec results from the CPAN

Acme-HidamariSketch

view release on metacpan or search on metacpan

     # You can see the character information.
     my @characters = $hidamari->characters;

     # You can build a Hidamari-apartment.
     my $apartment = $hidamari->apartment;

     # You can knock on the room.
     my $yuno = $apartment->knock(201);

     # You can change the year.
     $hidamari->year('second');
     $apartment = $hidamari->apartment;

     # You also meet Sae and Hiro.
     my $hiro = $apartment->knock(101);
     my $sae  = $apartment->knock(102);

# DESCRIPTION

Hidamari Sketch is a Japanese manga that are loved by many people.

README.md view on Meta::CPAN

    my @characters = $hidamari->characters;

## apartment

    my $apartment = $hidamari->apartment;

    my $yuno = $apartment->knock(201);

## year

    my $year = $hidamari->year('second');

# SEE ALSO

- Hidamari Sketch (Wikipedia - ja)

    http://ja.wikipedia.org/wiki/%E3%81%B2%E3%81%A0%E3%81%BE%E3%82%8A%E3%82%B9%E3%82%B1%E3%83%83%E3%83%81

- Hidamari Sketch (Wikipedia - en)

    http://en.wikipedia.org/wiki/Hidamari\_Sketch

eg/apartment.pl view on Meta::CPAN

printf $apartment->knock(202)->{name_ja} . "\n";
printf $apartment->knock(203)->{name_ja} . "\n";
printf $apartment->knock(101)->{name_ja} . "\n";
printf $apartment->knock(103)->{name_ja} . "\n";

# å˜åœ¨ã—ãªã„éƒ¨å±‹ã¯ãƒŽãƒƒã‚¯ã§ããªã„ã‚ˆï¼Ÿ
# $apartment->knock(104);

# æ²™è‹±ã•ã‚“ã¨ãƒ’ãƒã•ã‚“ãŒã„ãªã„ï¼Ÿ
# ãªã‚‰æ™‚é–“ã‚’æˆ»ã—ã¾ã—ã‚‡ã†
$hidamari->year('second');
$apartment = $hidamari->apartment;

# ã“ã‚Œã§æ²™è‹±ã•ã‚“ã¨ãƒ’ãƒã•ã‚“ã«ã‚‚ä¼šãˆã¾ã™
printf "\n[ 2å¹´ç›® ]\n";
printf $apartment->knock(201)->{name_ja} . "\n";
printf $apartment->knock(202)->{name_ja} . "\n";
printf $apartment->knock(203)->{name_ja} . "\n";
printf $apartment->knock(101)->{name_ja} . "\n";
printf $apartment->knock(102)->{name_ja} . "\n";
printf $apartment->knock(103)->{name_ja} . "\n";

eg/characters.pl view on Meta::CPAN

    my $name     = $character->{name_ja}  ? $character->{name_ja}  : "undef";
    my $birthday = $character->{birthday} ? $character->{birthday} : "undef";
    my $sign     = $character->{sign}     ? $character->{sign}     : "undef";
    my $color    = $character->{color}    ? $character->{color}    : "undef";
    printf "name:        " . $name     . "\n";
    printf "birthday:    " . $birthday . "\n";
    printf "sign:        " . $sign     . "\n";
    printf "color:       " . $color    . "\n";
    printf "room_number:\n{\n";
    my $room_number = $character->{room_number};
    for my $year (qw/before first second third/) {
        if (defined $room_number->{$year}) {
            printf '  ' . $year . ': ' . $room_number->{$year} . "\n";
        }
        else {
            printf '  ' . $year . ": undef\n";
        };
    }
    printf "}\n";
}

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

    Nori
    Nazuna
    Matsuri
    Riri
    Misato
);

my %year = (
    before => 0,   # å‰å¹´  (ã‚†ã®å…¥å¦å‰)
    first  => 1,   # 1å¹´ç›® (ã‚†ã®å…¥å¦)
    second => 2,   # 2å¹´ç›®
    third  => 3,   # 3å¹´ç›® (ç¾åœ¨)
);

my $SINGLETON;


sub new {
    if ($SINGLETON) {
        return $SINGLETON;
    }

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

    # You can see the character information.
    my @characters = $hidamari->characters;

    # You can build a Hidamari-apartment.
    my $apartment = $hidamari->apartment;

    # You can knock on the room.
    my $yuno = $apartment->knock(201);

    # You can change the year.
    $hidamari->year('second');
    $apartment = $hidamari->apartment;

    # You also meet Sae and Hiro.
    my $hiro = $apartment->knock(101);
    my $sae  = $apartment->knock(102);

=head1 DESCRIPTION

Hidamari Sketch is a Japanese manga that are loved by many people.

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

    my @characters = $hidamari->characters;

=head2 apartment

    my $apartment = $hidamari->apartment;

    my $yuno = $apartment->knock(201);

=head2 year

    my $year = $hidamari->year('second');

=head1 SEE ALSO

=over 4

=item Hidamari Sketch (Wikipedia - ja)

http://ja.wikipedia.org/wiki/%E3%81%B2%E3%81%A0%E3%81%BE%E3%82%8A%E3%82%B9%E3%82%B1%E3%83%83%E3%83%81

=item Hidamari Sketch (Wikipedia - en)

lib/Acme/HidamariSketch/Hiro.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'ãƒ’ãƒ',
        name_en     => 'hiro',
        nickname    => 'ãƒ’ãƒ',
        birthday    => '6/15',
        voice_by    => 'å¾Œè—¤ é‚‘å',
        room_number => {before => 203, first => 101, second => 101, third => undef},
        sign        => 'åŒååº§',
        color       => '#FFC0CB',    # ãƒ”ãƒ³ã‚¯
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Matsuri.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return ( 
        name_ja     => 'èŒ‰é‡Œ',
        name_en     => 'matsuri',
        nickname    => undef,
        birthday    => undef,
        voice_by    => undef,
        room_number => {before => undef, first => undef, second => undef, third => 101},
        sign        => undef,
        color       => undef,
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Misato.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'ã¿ã•ã¨',
        name_en     => 'misato',
        nickname    => undef,
        birthday    => undef,
        voice_by    => 'å°æ¸…æ°´ äºœç¾Ž',
        room_number => {before => 201, first => undef, second => undef, third => undef},
        sign        => undef,
        color       => undef,
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Miyako.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'å®®å',
        name_en     => 'miyako',
        nickname    => 'å®®ã¡ã‚ƒã‚“',
        birthday    => '10/10',
        voice_by    => 'æ°´æ©‹ ã‹ãŠã‚Š',
        room_number => {before => undef, first => 202, second => 202, third => 202},
        sign        => 'å¤©ç§¤åº§',
        color       => '#FFFF00',   # ã‚¤ã‚¨ãƒãƒ¼
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Nazuna.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'ãªãšãª',
        name_en     => 'nazuna',
        nickname    => 'ãªãšãªæ®¿',
        birthday    => '1/7',
        voice_by    => 'å°è¦‹å· åƒæ˜Ž',
        room_number => {before => undef, first => undef, second => 203, third => 203},
        sign        => 'å±±ç¾Šåº§',
        color       => '#F5F5F5',    # ãƒ›ãƒ¯ã‚¤ãƒˆ
        course      => 'æ™®é€šç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Nori.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'ä¹ƒèŽ‰',
        name_en     => 'nori',
        nickname    => qw/ã®ã‚Šã£ãº ãƒŽãƒªã‚¹ã‚± ãƒŽãƒªã‚³ã•ã‚“/,
        birthday    => '2/6',
        voice_by    => 'åŽŸç”° ã²ã¨ã¿',
        room_number => {before => undef, first => undef, second => 103, third => 103},
        sign        => 'æ°´ç“¶åº§',
        color       => '#89CEEB',   # ãƒ–ãƒ«ãƒ¼
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Riri.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'ãƒªãƒª',
        name_en     => 'riri',
        nickname    => undef,
        birthday    => undef,
        voice_by    => 'ç™½çŸ³ æ¶¼å',
        room_number => {before => 101, first => undef, second => undef, third => undef},
        sign        => undef,
        color       => undef,
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Sae.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'æ²™è‹±',
        name_en     => 'sae',
        nickname    => 'ã•ãˆ',
        birthday    => '11/3',
        voice_by    => 'æ–°è°· è‰¯å',
        room_number => {before => 102, first => 102, second => 102, third => undef},
        sign        => 'è åº§',
        color       => '#800080',   # ãƒ‘ãƒ¼ãƒ—ãƒ«
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

lib/Acme/HidamariSketch/Yuno.pm view on Meta::CPAN

our $VERSION = '0.05';


sub info {
    return ( 
        name_ja     => 'ã‚†ã®',
        name_en     => 'yuno',
        nickname    => 'ã‚†ã®ã£ã¡',
        birthday    => '5/5',
        voice_by    => 'é˜¿æ¾„ ä½³å¥ˆ',
        room_number => {before => undef, first => 201, second => 201, third => 201},
        sign        => 'å°„æ‰‹åº§',
        color       => '#FFA500',   # ã‚ªãƒ¬ãƒ³ã‚¸
        course      => 'ç¾Žè¡“ç§‘',
    );
}

1;

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

        is $characters[0]->{name_en},     'yuno';
        is $characters[0]->{nickname},    'ã‚†ã®ã£ã¡';
        is $characters[0]->{voice_by},    'é˜¿æ¾„ ä½³å¥ˆ';
        is $characters[0]->{birthday},    '5/5';
        is $characters[0]->{sign},        'å°„æ‰‹åº§';
        is $characters[0]->{color},       '#FFA500';
        is_deeply 
            $characters[0]->{room_number}, {
                before => undef,
                first  => 201,
                second => 201,
                third  => 201,
            }
        ;
    };
    
    subtest 'å®®å' => sub {
        is $characters[1]->{name_ja},     'å®®å';
        is $characters[1]->{name_en},     'miyako';
        is $characters[1]->{nickname},    'å®®ã¡ã‚ƒã‚“';
        is $characters[1]->{voice_by},    'æ°´æ©‹ ã‹ãŠã‚Š';
        is $characters[1]->{birthday},    '10/10';
        is $characters[1]->{sign},        'å¤©ç§¤åº§';
        is $characters[1]->{color},       '#FFFF00';
        is_deeply 
            $characters[1]->{room_number}, {
                before => undef,
                first  => 202,
                second => 202,
                third  => 202,
            }
        ;
    };

    subtest 'ãƒ’ãƒ' => sub {
        is $characters[2]->{name_ja},     'ãƒ’ãƒ';
        is $characters[2]->{name_en},     'hiro';
        is $characters[2]->{nickname},    'ãƒ’ãƒ';
        is $characters[2]->{voice_by},    'å¾Œè—¤ é‚‘å';
        is $characters[2]->{birthday},    '6/15';
        is $characters[2]->{sign},        'åŒååº§';
        is $characters[2]->{color},       '#FFC0CB';
        is_deeply 
            $characters[2]->{room_number}, {
                before => 203, 
                first  => 101,
                second => 101,
                third  => undef,
            }
        ;
    };

    subtest 'æ²™è‹±' => sub {
        is $characters[3]->{name_ja},     'æ²™è‹±';
        is $characters[3]->{name_en},     'sae';
        is $characters[3]->{nickname},    'ã•ãˆ';
        is $characters[3]->{voice_by},    'æ–°è°· è‰¯å';
        is $characters[3]->{birthday},    '11/3';
        is $characters[3]->{sign},        'è åº§';
        is $characters[3]->{color},       '#800080';
        is_deeply 
            $characters[3]->{room_number}, {
                before => 102, 
                first  => 102,
                second => 102,
                third  => undef,
            }
        ;
    };

    subtest 'ä¹ƒèŽ‰' => sub {
        is $characters[4]->{name_ja},        'ä¹ƒèŽ‰';
        is $characters[4]->{name_en},        'nori';
        eq_array $characters[4]->{nickname},  qw/ã®ã‚Šã£ãº ãƒŽãƒªã‚¹ã‚± ãƒŽãƒªã‚³ã•ã‚“/;
        is $characters[4]->{voice_by},       'åŽŸç”° ã²ã¨ã¿';
        is $characters[4]->{birthday},       '2/6';
        is $characters[4]->{sign},           'æ°´ç“¶åº§';
        is $characters[4]->{color},          '#89CEEB';
        is_deeply 
            $characters[4]->{room_number}, {
                before => undef, 
                first  => undef,
                second => 103,
                third  => 103,
            }
        ;
    };

    subtest 'ãªãšãª' => sub {
        is $characters[5]->{name_ja},     'ãªãšãª';
        is $characters[5]->{name_en},     'nazuna';
        is $characters[5]->{nickname},    'ãªãšãªæ®¿';
        is $characters[5]->{voice_by},    'å°è¦‹å· åƒæ˜Ž';
        is $characters[5]->{birthday},    '1/7';
        is $characters[5]->{sign},        'å±±ç¾Šåº§';
        is $characters[5]->{color},       '#F5F5F5';
        is_deeply 
            $characters[5]->{room_number}, {
                before => undef, 
                first  => undef, 
                second => 203,
                third  => 203,
            }
        ;
    };

    subtest 'èŒ‰é‡Œ' => sub {
        is $characters[6]->{name_ja},     'èŒ‰é‡Œ';
        is $characters[6]->{name_en},     'matsuri';
        is $characters[6]->{nickname},    undef;
        is $characters[6]->{voice_by},    undef;
        is $characters[6]->{birthday},    undef;
        is $characters[6]->{sign},        undef;
        is $characters[6]->{color},       undef;
        is_deeply 
            $characters[6]->{room_number}, {
                before => undef,
                first  => undef,
                second => undef, 
                third  => 101,
            }
        ;
    };

    subtest 'ãƒªãƒª' => sub {
        is $characters[7]->{name_ja},     'ãƒªãƒª';
        is $characters[7]->{name_en},     'riri';
        is $characters[7]->{nickname},    undef;
        is $characters[7]->{voice_by},    'ç™½çŸ³ æ¶¼å';
        is $characters[7]->{birthday},    undef;
        is $characters[7]->{sign},        undef;
        is $characters[7]->{color},       undef;
        is_deeply 
            $characters[7]->{room_number}, {
                before => 101,
                first  => undef,
                second => undef, 
                third  => undef,
            }
        ;
    };

    subtest 'ã¿ã•ã¨' => sub {
        is $characters[8]->{name_ja},     'ã¿ã•ã¨';
        is $characters[8]->{name_en},     'misato';
        is $characters[8]->{nickname},    undef;
        is $characters[8]->{voice_by},    'å°æ¸…æ°´ äºœç¾Ž';
        is $characters[8]->{birthday},    undef;
        is $characters[8]->{sign},        undef;
        is $characters[8]->{color},       undef;
        is_deeply 
            $characters[8]->{room_number}, {
                before => 201,
                first  => undef,
                second => undef, 
                third  => undef,
            }
        ;
    };
};


done_testing;

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


    # æ²™è‹±ã•ã‚“ã‚‚ãƒ’ãƒã•ã‚“ã‚‚å’æ¥ã—ã¡ã‚ƒã£ã¦ã‚‹...
    is $apartment->knock(201)->{name_ja}, 'ã‚†ã®';
    is $apartment->knock(202)->{name_ja}, 'å®®å';
    is $apartment->knock(203)->{name_ja}, 'ãªãšãª';
    is $apartment->knock(101)->{name_ja}, 'èŒ‰é‡Œ';
    is $apartment->knock(103)->{name_ja}, 'ä¹ƒèŽ‰';


    # ãã‚“ãªæ™‚ã¯2å¹´ç›®ã«æˆ»ã—ã¦ã‚„ã‚‹ã¨...
    $hidamari->year('second');
    $apartment = $hidamari->apartment;

    # æ²™è‹±ã•ã‚“ã€ãƒ’ãƒã•ã‚“ãŒå¸°ã£ã¦ãã‚‹!!
    is $apartment->knock(201)->{name_ja}, 'ã‚†ã®';
    is $apartment->knock(202)->{name_ja}, 'å®®å';
    is $apartment->knock(203)->{name_ja}, 'ãªãšãª';
    is $apartment->knock(101)->{name_ja}, 'ãƒ’ãƒ';
    is $apartment->knock(102)->{name_ja}, 'æ²™è‹±';
    is $apartment->knock(103)->{name_ja}, 'ä¹ƒèŽ‰';

( run in 3.988 seconds using v1.01-cache-2.11-cpan-75ffa21a3d4 )