File Coverage

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

Criterion	Covered	Total	%
statement	17	17	100.0
branch	4	4	100.0
condition	6	6	100.0
subroutine	9	9	100.0
pod			n/a
total	36	36	100.0

package Class::MakeMethods::Emulator::accessors;

$VERSION = '0.02';

use Class::MakeMethods::Emulator '-isasubclass';
use Class::MakeMethods::Template::Hash '-isasubclass';

sub _emulator_target { 'accessors' }
sub _accessor_type { 'scalar --get_set_chain' }

sub import {
  my $class = shift;

  $class->_handle_namespace( $class->_emulator_target, $_[0] ) and shift;

  foreach ( @_ ) {
    die "invalid accessor - $_" unless ( /\A[a-z]\w+\z/i and
					 $_ ne 'DESTROY' and $_ ne 'AUTOLOAD' )
  }

  $class->make($class->_accessor_type => [@_]);
}

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

package Class::MakeMethods::Emulator::accessors::chained;
@ISA = 'Class::MakeMethods::Emulator::accessors';
$INC{'Class/MakeMethods/Emulator/accessors/chained.pm'} =
			$INC{'Class/MakeMethods/Emulator/accessors.pm'};

sub _emulator_target { 'accessors::chained' }
sub _accessor_type { 'scalar --get_set_chain' }

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

package Class::MakeMethods::Emulator::accessors::classic;
@ISA = 'Class::MakeMethods::Emulator::accessors';
$INC{'Class/MakeMethods/Emulator/accessors/classic.pm'} =
			$INC{'Class/MakeMethods/Emulator/accessors.pm'};

sub _emulator_target { 'accessors::classic' }
sub _accessor_type { 'scalar' }

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

1;

__END__