File Coverage

blib/lib/POE/Component/Algorithm/Evolutionary/Island.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	24	24	100.0

package POE::Component::Algorithm::Evolutionary::Island;

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: 1.3 $ =~ /(\d+)\.(\d+)/g;

use POE;
use base 'POE::Component::Algorithm::Evolutionary';

# Module implementation here
sub new {
  my $class = shift;
  my %arg = @_;
  my $self = $class->SUPER::new( %arg );
  $self->{'peers'} = delete $arg{'Peers'} || croak "Need a list of peers";
  return $self;
}

sub start {
    my $self = shift;
    _start_base( @_ );
    $_[HEAP]->{'peers'} = $self->{'peers'};
    $_[KERNEL]->yield('generation');
}


"Don't look further" ; # Magic true value required at end of module
__END__