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