File Coverage

blib/lib/IMDB/Local/DB/BaseObjectAccessor.pm

Criterion	Covered	Total	%
statement	6	13	46.1
branch			n/a
condition			n/a
subroutine	2	4	50.0
pod	0	2	0.0
total	8	19	42.1

package IMDB::Local::DB::BaseObjectAccessor;

#
# todo - do we need this extra layer ?
#

use Class::Accessor;
use base qw(Class::Accessor);

sub add_accessors($@)
{
    my $self=shift;
    push(@{$self->{__FIELDS__}}, @_);
    $self->SUPER::mk_accessors(@_);
}

sub get_accessors($)
{
    my $self=shift;
    return @{$self->{__FIELDS__}};
}
1;