view release on metacpan or  search on metacpan

lib/Acme/PriPara/MainMembers.pm  view on Meta::CPAN

sub pripara_change {
    my ($self) = @_;
    $self->has_pripara_changed(1);
}

sub BUILD {
    my ($self, $args) = @_;

    my $ds = Data::Section::Simple->new( ref $self );
    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};
        }
    }
}

1;