view release on metacpan or  search on metacpan

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

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} ) {
        my $yml = YAML::Tiny->read_string($sections->{$section_name});
        my $member_info = $yml->[0];
        for my $key ( keys %{$member_info} ) {
            $self->{$key} = $member_info->{$key};
        }
    }
    if (defined $args{line}) {
        $self->{startline} = $args{line};
    } else {
        $self->{startline} = (caller)[2];
    }