File Coverage

blib/lib/Class/MakeMethods/Emulator/AccessorFast.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition			n/a
subroutine	8	8	100.0
pod	0	3	0.0
total	27	31	87.1

package Class::MakeMethods::Emulator::AccessorFast;

use strict;
use Class::MakeMethods::Composite::Hash;
use Class::MakeMethods::Emulator '-isasubclass';

sub _emulator_target { 'Class::Accessor::Fast' }

sub import {
  my $class = shift;
  $class->_handle_namespace( $class->_emulator_target, $_[0] ) and shift;
}

########################################################################

sub mk_accessors {
  Class::MakeMethods::Composite::Hash->make(
    -TargetClass => (shift),
    'new' => { name => 'new', modifier => 'with_values' },
    'scalar' => [ map {
	$_,
	"_${_}_accessor", { 'hash_key' => $_ }
    } @_ ],
  );
}

sub mk_ro_accessors {
  Class::MakeMethods::Composite::Hash->make(
    -TargetClass => (shift),
    'new' => { name => 'new', modifier => 'with_values' },
    'scalar' => [ map {
	$_, { permit => 'ro' },
	"_${_}_accessor", { 'hash_key' => $_, permit => 'ro' }
    } @_ ],
  );
}

sub mk_wo_accessors {
  Class::MakeMethods::Composite::Hash->make(
    -TargetClass => (shift),
    'new' => { name => 'new', modifier => 'with_values' },
    'scalar' => [ map {
	$_, { permit => 'wo' },
	"_${_}_accessor", { 'hash_key' => $_, permit => 'wo' }
    } @_ ],
  );
}

########################################################################

1;

__END__