Acme-MadokaMagica

 view release on metacpan or  search on metacpan

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

package Acme::MadokaMagica;
use 5.008001;
use strict;
use warnings;
use utf8;
use parent 'Exporter';

our $VERSION = "0.09";
our $miracle = "奇跡";
our $magical = "魔法";

our @EXPORT = qw[ $miracle $magical];

use Readonly;

lib/Acme/MadokaMagica/TvMembers.pm  view on Meta::CPAN

package Acme::MadokaMagica::TvMembers;
use strict;
use warnings;
use utf8;
use Data::Section::Simple;
use YAML::Tiny;

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

    my $self = { _has_qb => undef };
    my $ds = Data::Section::Simple->new($class);
    my $sections = $ds->get_data_section;
    for my $section_name ( keys %{$sections} ) {

lib/Acme/MadokaMagica/TvMembers/AkemiHomura.pm  view on Meta::CPAN

package Acme::MadokaMagica::TvMembers::AkemiHomura;
use parent qw/Acme::MadokaMagica::TvMembers/;
use strict;
use warnings;
use utf8;


1;

__DATA__

@@ AkemiHomura
firstname: ほむら
lastname: 暁美
age: 14

lib/Acme/MadokaMagica/TvMembers/KanameMadoka.pm  view on Meta::CPAN

package Acme::MadokaMagica::TvMembers::KanameMadoka;
use parent 'Acme::MadokaMagica::TvMembers';
use strict;
use warnings;
use utf8;


1;

__DATA__

@@ KanameMadoka
firstname: まどか
lastname: 鹿目
age: 14

lib/Acme/MadokaMagica/TvMembers/MikiSayaka.pm  view on Meta::CPAN

package Acme::MadokaMagica::TvMembers::MikiSayaka;
use parent 'Acme::MadokaMagica::TvMembers';
use utf8;


1;

__DATA__

@@ MikiSayaka
firstname: さやか
lastname: 美樹
age: 14

lib/Acme/MadokaMagica/TvMembers/SakuraKyoko.pm  view on Meta::CPAN

package Acme::MadokaMagica::TvMembers::SakuraKyoko;
use parent 'Acme::MadokaMagica::TvMembers';
use utf8;


1;

__DATA__

@@ SakuraKyoko
firstname: 杏子
lastname: 佐倉
age: 14

lib/Acme/MadokaMagica/TvMembers/TomoeMami.pm  view on Meta::CPAN

package Acme::MadokaMagica::TvMembers::TomoeMami;
use parent qw/Acme::MadokaMagica::TvMembers/;
use utf8;


1;

__DATA__

@@ TomoeMami
firstname: マミ
lastname: å·´
age: 15

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

use strict;
use warnings;
use utf8;

use Acme::MadokaMagica;
use Acme::MadokaMagica::TvMembers;
use Acme::MadokaMagica::TvMembers::TomoeMami;
use Acme::MadokaMagica::TvMembers::KanameMadoka;
use Acme::MadokaMagica::TvMembers::MikiSayaka;
use Acme::MadokaMagica::TvMembers::SakuraKyoko;
use Acme::MadokaMagica::TvMembers::AkemiHomura;

use Test::More;

t/02_team.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Acme::MadokaMagica;
use Test::More;

subtest 'Team' => sub {
    subtest 'Alone' => sub {
        my ($mami) = Acme::MadokaMagica->alone_members;

        is ref $mami, 'Acme::MadokaMagica::TvMembers::TomoeMami';
    };

t/03_variable.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Acme::MadokaMagica;

use Test::More;

subtest 'Variabe' => sub{
    ok ( defined $magical);
    ok ( defined $miracle);
    is $miracle,'奇跡';
    is $magical,'魔法';

t/04_soulgem.t  view on Meta::CPAN

use strict;
use warnings;
use utf8;

use Acme::MadokaMagica;
use Test::More;

subtest 'Soulgem' => sub{
    subtest 'alone_members' => sub {
        my ($mami) = Acme::MadokaMagica->alone_members;
        is ref $mami,'Acme::MadokaMagica::TvMembers::TomoeMami';
        is $mami->color,'yellow';