File Coverage

blib/lib/Class/MakeMethods/Evaled.pm

Criterion	Covered	Total	%
statement	40	42	95.2
branch	7	10	70.0
condition			n/a
subroutine	9	9	100.0
pod	0	1	0.0
total	56	62	90.3

=head1 NAME

Class::MakeMethods::Evaled - Make methods with simple string evals


=head1 SYNOPSIS

  package MyObject;
  use Class::MakeMethods::Evaled::Hash (
    new => 'new',
    scalar => [ 'foo', 'bar' ],
    array => 'my_list',
    hash => 'my_index',
  );


=head1 DESCRIPTION

This document describes the various subclasses of Class::MakeMethods
included under the Evaled::* namespace, and the method types each
one provides.

The Evaled subclasses generate methods using a simple string templating mechanism and basic string evals.


=head2 Calling Conventions

When you C this package, the method names you provide
as arguments cause subroutines to be generated and installed in
your module.

See L for more information.

=head2 Declaration Syntax

To declare methods, pass in pairs of a method-type name followed
by one or more method names.

Valid method-type names for this package are listed in L<"METHOD
GENERATOR TYPES">.

See L and L for more information.

=cut

package Class::MakeMethods::Evaled;

$VERSION = 1.000;
use strict;
use Carp;

use Class::MakeMethods::Standard '-isasubclass';
use Class::MakeMethods::Utility::TextBuilder 'text_builder';

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

=head2 About Evaled Methods


=cut

sub evaled_methods {
  my $class = shift;
  my $template = shift;
  my $package = $Class::MakeMethods::CONTEXT{TargetClass};
  my @declarations = $class->_get_declarations( @_ );
  my @code_chunks;
  foreach my $method ( @declarations ) {
    my $code = $template;
    $code =~ s/__(\w+?)__/$method->{lc $1}/eg;

    # my $code = text_builder( $template, {
    #   '__NAME__' => $method->{name},
    #   '__METHOD__{}' => $method,
    #   '__CONTEXT__{}' => $Class::MakeMethods::CONTEXT,
    # } );

    push @code_chunks, $code;
  }
  my $code = join( "\n", "package $package;", @code_chunks, "1;" );
  eval $code;
  $@ and Class::MakeMethods::_diagnostic('inst_eval_syntax', 'from eval', $@, $code);
  return;
}

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

=head1 SEE ALSO

See L for general information about this distribution.

For distribution, installation, support, copyright and license
information, see L.

=cut

1;