view release on metacpan or  search on metacpan

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

my $SINGLETON;


sub new {
    if ($SINGLETON) {
        return $SINGLETON;
    }
    else {
        my $class = shift;

        my $SINGLETON = bless {characters => [], year => 'third'}, $class;

        $SINGLETON->_init;

        return $SINGLETON;
    }
}

sub characters {
    my ($self, %options) = @_;

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

use Data::Dumper;


our $VERSION = "0.05";


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


    my $self = bless {
        tenants => $args->{tenants},
        year    => $args->{year}
    }, $class;

    return $self;
}

sub knock {
    my ($self, $knock_room) = @_;
 

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

use strict;
use warnings;
use utf8;

our $VERSION = '0.05';


sub new {
    my $class = shift;

    my $self = bless {}, $class;

    $self->_init;

    return $self;
}

sub _init {
    my $self = shift;
    my %info = $self->info;