File Coverage

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

Criterion	Covered	Total	%
statement	21	21	100.0
branch	5	6	83.3
condition			n/a
subroutine	14	14	100.0
pod	0	10	0.0
total	40	51	78.4

package Class::MakeMethods::Emulator::mcoder;

$VERSION = '0.05';

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

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

sub import {
  my $class = shift;
  ( my $target = $class ) =~ s/^Class::MakeMethods::Emulator:://;
  $class->_handle_namespace( $target, $_[0] ) and shift;
  $class->make( @_ ) if ( scalar @_ );
}


sub new        { 'Template::Hash::new --with_values' }
sub proxy      { 'Template::Universal:forward_methods -target' }
sub generic    { { '-import' => { 'Template::Hash:scalar' => '*' } } }
sub get        { { interface => { default => { '*'       =>'get' } } } }
sub set        { { interface => { default => { 'set_*'   =>'set' } } } }
sub undef      { { interface => { default => { 'undef_*' =>'clear' } } } }
sub delete     { { interface => { default => { 'delete_*'=>'hash_delete' } } } }
sub bool_set   { { interface => { default => { 'set_*'   =>'set_value' } },
		   '-import' => { 'Template::Hash:boolean' => '*' } } }
sub bool_unset { { interface => { default => { 'unset_*' =>'clear' } } } }
sub calculated { { interface => { default => { '*'       =>'get_init' } },
		   params    => { init_method=>'_calculate_*' } } }

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

foreach my $type ( qw( new get set proxy calculated ) ) {
  $INC{"Class/MakeMethods/Emulator/mcoder/$type.pm"} =
			     $INC{"mcoder/$type.pm"} = __FILE__;
  *{__PACKAGE__ . "::${type}::import"} = sub {
    (shift) and (__PACKAGE__)->make( $type => [ @_ ] )
  };
}

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

1;

__END__