File Coverage

blib/lib/WoW/Armory/Class.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	5	6	83.3
condition	2	6	33.3
subroutine	10	10	100.0
pod	4	4	100.0
total	59	64	92.1

package WoW::Armory::Class;

use strict;
use warnings;

use base 'Class::Accessor';

use constant FIELDS => [];
use constant BLESSED_FIELDS => {};
use constant LIST_FIELDS => {};

sub new {
    my ($proto, $fields) = @_;

    my $class = ref $proto || $proto;
    my $self = $class->SUPER::new($fields);

    for my $field (keys %$self) {
        next if !defined $self->{$field};
        if ($class->BLESSED_FIELDS()->{$field}) {
            $self->{$field} = $class->BLESSED_FIELDS()->{$field}->new($self->{$field});
        }
        elsif ($class->LIST_FIELDS()->{$field}) {
            $_ = $class->LIST_FIELDS()->{$field}->new($_) for @{$self->{$field}};
        }
    }

    return $self;
}

sub mk_accessors {
    my ($proto, @fields) = @_;

    my $class = ref $proto || $proto;

    $class->SUPER::mk_accessors(
        @fields,
        @{$class->FIELDS()},
        keys %{$class->BLESSED_FIELDS()},
        keys %{$class->LIST_FIELDS()}
    );
}

sub accessor_name_for {
    my ($self, $field) = @_;
    $field =~ s/[^a-z0-9_]/_/gi;
    return $field;
}

sub mutator_name_for {
    return shift->accessor_name_for(@_);
}

__PACKAGE__->mk_accessors;

1;