use strict; #-*-cperl-*-
use warnings;

use lib qw( ../../../../lib );

=encoding utf8

=head1 NAME

Algorithm::Evolutionary::Fitness::Any - Fa├žade for any function so that it can be used as fitness


   use Algorithm::Evolutionary::Utils qw( string_decode )

   sub squares {
     my $chrom = shift;
     my @values = string_decode( $chrom, 10, -1, 1 );
     return $values[0] * $values[1];

   my $any_eval = new Algorithm::Evolutionary::Fitness::Any \&squares;


Turns any subroutine or closure into a fitness function. Useful mainly
if you want results cached; it's not really needed otherwise.

=head1 METHODS


package Algorithm::Evolutionary::Fitness::Any;

use Carp;

use base 'Algorithm::Evolutionary::Fitness::Base';

our $VERSION =  '3.2';

=head2 new( $function )

Assigns default variables


sub new {
  my $class = shift;
  my $self = { _function => shift || croak "No functiona rray" };
  bless $self, $class;
  return $self;

=head2 apply( $individual )

Applies the instantiated problem to a chromosome. It is actually a
wrapper around C<_apply>.


sub apply {
    my $self = shift;
    my $individual = shift || croak "Nobody here!!!";
    return $self->_apply( $individual );

=head2 _apply( $individual )

This is the one that really does the stuff. It applies the defined
function to each individual. Itis cached for efficiency.


sub _apply {
  my $self = shift;
  my $individual = shift || croak "Nobody here!";
  my $chrom = $individual->Chrom();
  my $cache = $self->{'_cache'};
  if ( $cache->{$chrom} ) {
    return $cache->{$chrom};
  my $result = $self->{'_function'}->($chrom);
  if ( (scalar $chrom ) eq $chrom ) {
    $cache->{$chrom} = $result;
  return $result;

=head1 Copyright
  This file is released under the GPL. See the LICENSE file included in this distribution,
  or go to