view release on metacpan or  search on metacpan

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;

    return $self;
}

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

    $self->{$_} = $info{$_} for keys %info;

    return 1;
}


1;