File Coverage

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

Criterion	Covered	Total	%
statement	17	19	89.4
branch	4	6	66.6
condition	6	12	50.0
subroutine	5	5	100.0
pod	0	1	0.0
total	32	43	74.4

package Class::MakeMethods::Emulator::Inheritable;

use strict;

use Class::MakeMethods::Template::ClassInherit;
use Class::MakeMethods::Emulator qw( namespace_capture namespace_release );

my $emulation_target = 'Class::Data::Inheritable';

sub import {
  my $mm_class = shift;
  if ( scalar @_ and $_[0] =~ /^-take_namespace/ and shift) {
    namespace_capture(__PACKAGE__, $emulation_target);
  } elsif ( scalar @_ and $_[0] =~ /^-release_namespace/ and shift) {
    namespace_release(__PACKAGE__, $emulation_target);
  }
  # The fallback should really be to NEXT::import.
  $mm_class->SUPER::import( @_ );
}

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

sub mk_classdata {
  my $declaredclass = shift;
  my $attribute = shift;
  Class::MakeMethods::Template::ClassInherit->make(
    -TargetClass => $declaredclass,
    'scalar' => [ -interface => { '*'=>'get_set', '_*_accessor'=>'get_set' },
		  $attribute ],
  );
  if ( scalar @_ ) {
    $declaredclass->$attribute( @_ );
  }
}

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

1;

__END__