Acme-HidamariSketch

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

# =========================================================================
# THIS FILE IS AUTOMATICALLY GENERATED BY MINILLA.
# DO NOT EDIT DIRECTLY.
# =========================================================================

use 5.008_001;

use strict;
use warnings;
use utf8;

use Module::Build;
use File::Basename;
use File::Spec;
use CPAN::Meta;
use CPAN::Meta::Prereqs;

my %args = (
    license              => 'perl',
    dynamic_config       => 0,

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";

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

package Acme::HidamariSketch;
use 5.008005;
use strict;
use warnings;
use utf8;

our $VERSION = "0.05";


my @characters = qw(
    Yuno
    Miyako
    Hiro
    Sae
    Nori

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

package Acme::HidamariSketch::Apartment;
use strict;
use warnings;
use utf8;
use Data::Dumper;


our $VERSION = "0.05";


sub new {
    my ($class, $args) = @_;

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

package Acme::HidamariSketch::Base;

use strict;
use warnings;
use utf8;

our $VERSION = '0.05';


sub new {
    my $class = shift;

    my $self = bless {}, $class;

    $self->_init;

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

package Acme::HidamariSketch::Hiro;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'ヒロ',
        name_en     => 'hiro',

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

package Acme::HidamariSketch::Matsuri;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return ( 
        name_ja     => '茉里',
        name_en     => 'matsuri',

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

package Acme::HidamariSketch::Misato;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'みさと',
        name_en     => 'misato',

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

package Acme::HidamariSketch::Miyako;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => '宮子',
        name_en     => 'miyako',

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

package Acme::HidamariSketch::Nazuna;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'なずな',
        name_en     => 'nazuna',

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

package Acme::HidamariSketch::Nori;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => '乃莉',
        name_en     => 'nori',

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

package Acme::HidamariSketch::Riri;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => 'リリ',
        name_en     => 'riri',

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

package Acme::HidamariSketch::Sae;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return (
        name_ja     => '沙英',
        name_en     => 'sae',

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

package Acme::HidamariSketch::Yuno;

use strict;
use warnings;
use utf8;

use base qw/Acme::HidamariSketch::Base/;

our $VERSION = '0.05';


sub info {
    return ( 
        name_ja     => 'ゆの',
        name_en     => 'yuno',

t/00_compile.t  view on Meta::CPAN

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


use_ok $_ for qw(
    Acme::HidamariSketch
);


done_testing;

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

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

use Acme::HidamariSketch;


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

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;