Acme-BABYMETAL

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::CPAN::Meta" : "0",
            "Test::MinimumVersion::Fast" : "0.04",
            "Test::PAUSE::Permissions" : "0.04",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "Class::Accessor" : "0",
            "DateTime" : "0",
            "perl" : "5.008001"
         }
      },
      "test" : {
         "requires" : {
            "Test::More" : "0.98"
         }
      }
   },
   "provides" : {

META.yml  view on Meta::CPAN

    file: lib/Acme/BABYMETAL/MOAMETAL.pm
    version: '0.03'
  Acme::BABYMETAL::SU_METAL:
    file: lib/Acme/BABYMETAL/SU_METAL.pm
    version: '0.03'
  Acme::BABYMETAL::YUIMETAL:
    file: lib/Acme/BABYMETAL/YUIMETAL.pm
    version: '0.03'
requires:
  Class::Accessor: '0'
  DateTime: '0'
  perl: '5.008001'
resources:
  bugtracker: https://github.com/hondallica/p5-Acme-BABYMETAL/issues
  homepage: https://github.com/hondallica/p5-Acme-BABYMETAL
  repository: git://github.com/hondallica/p5-Acme-BABYMETAL.git
version: '0.03'
x_authority: cpan:HONDALLIC
x_contributors:
  - 'Ben Bullock <benkasminbullock@gmail.com>'
x_serialization_backend: 'CPAN::Meta::YAML version 0.018'

cpanfile  view on Meta::CPAN

requires 'perl', '5.008001';
requires 'Class::Accessor';
requires 'DateTime';

on 'test' => sub {
    requires 'Test::More', '0.98';
};

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

package Acme::BABYMETAL::Base;
use strict;
use warnings;
use DateTime;
use base qw(Class::Accessor);

our $VERSION = '0.03';

__PACKAGE__->mk_accessors(qw(
    metal_name
    name_ja
    first_name_ja
    family_name_ja
    name_en

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

}

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

    $self->{$_}      = $info{$_} for keys %info;
    $self->{name_ja} = $self->family_name_ja . $self->first_name_ja;
    $self->{name_en} = $self->first_name_en . ' ' . $self->family_name_en;
    my ($year, $month, $day) = ($self->{birthday} =~ /^(\d{4})-(\d{2})-(\d{2})$/);
    $self->{age} = (DateTime->now - DateTime->new(
        year => $year,
        month => $month,
        day => $day,
    ))->years;

    return 1;
}

sub shout {
    my $self = shift;