File Coverage

blib/lib/Class/Scaffold/Accessor.pm

Criterion	Covered	Total	%
statement	22	41	53.6
branch	0	4	0.0
condition	0	9	0.0
subroutine	8	13	61.5
pod	3	3	100.0
total	33	70	47.1

use 5.008;
use warnings;
use strict;

package Class::Scaffold::Accessor;
BEGIN {
  $Class::Scaffold::Accessor::VERSION = '1.102280';
}
# ABSTRACT: Construct framework-specific accessors
use Error::Hierarchy::Util 'assert_read_only';
use Class::Scaffold::Factory::Type;
use parent qw(
  Class::Accessor::Complex
  Class::Accessor::Constructor
  Class::Accessor::FactoryTyped
);

sub mk_framework_object_accessors {
    my ($self, @args) = @_;
    $self->mk_factory_typed_accessors('Class::Scaffold::Factory::Type', @args);
}

sub mk_framework_object_array_accessors {
    my ($self, @args) = @_;
    $self->mk_factory_typed_array_accessors('Class::Scaffold::Factory::Type',
        @args);
}

sub mk_readonly_accessors {
    my ($self, @fields) = @_;
    my $class = ref $self || $self;
    for my $field (@fields) {
        no strict 'refs';
        *{"${class}::${field}"} = sub {
            local $DB::sub = local *__ANON__ = "${class}::${field}"
              if defined &DB::DB && !$Devel::DProf::VERSION;
            my $self = shift;
            assert_read_only(@_);
            $self->{$field};
        };
        *{"${class}::set_${field}"} = *{"${class}::${field}_set"} = sub {
            local $DB::sub = local *__ANON__ = "${class}::${field}_set"
              if defined &DB::DB && !$Devel::DProf::VERSION;
            $_[0]->{$field} = $_[1];
        };
    }
    $self;    # for chaining
}
1;


__END__