File Coverage

lib/Algorithm/Evolutionary/Op/Population_Output.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Algorithm::Evolutionary::Op::Population_Output;

use lib qw( ../../../../../../Algorithm-Evolutionary/lib ../Algorithm-Evolutionary/lib ); #For development and perl syntax mode

use warnings;
use strict;
use Carp;

our $VERSION =   sprintf "%d.%03d", q$Revision: 3.1 $ =~ /(\d+)\.(\d+)/g;

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

sub new {
  my $class = shift;
  my $hash = { printer => shift ||
		   sub { my $member = shift;
			 print $member->as_string, "\n"; }
  };
  my $self = Algorithm::Evolutionary::Op::Base::new( __PACKAGE__, 1, $hash );
  return $self;
}

sub apply {
    my $self = shift;
    my $population_hashref=shift;
    for my $p (@$population_hashref) {
	$self->{'_printer'}->($p);
    }
}

"No man is an island" ; # Magic true value required at end of module
__END__