File Coverage

blib/lib/AI/FANN/Evolving/Factory.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 13 15 86.6


line stmt bran cond sub pod time code
1             package AI::FANN::Evolving::Factory;
2 1     1   88908 use strict;
  1         2  
  1         40  
3 1     1   6453 use Algorithm::Genetic::Diploid;
  1         32445  
  1         31  
4 1     1   10 use base 'Algorithm::Genetic::Diploid::Factory';
  1         2  
  1         175  
5              
6             our $AUTOLOAD;
7              
8             my %defaults = (
9             'experiment' => 'AI::FANN::Evolving::Experiment',
10             'chromosome' => 'AI::FANN::Evolving::Chromosome',
11             'gene' => 'AI::FANN::Evolving::Gene',
12             'traindata' => 'AI::FANN::Evolving::TrainData',
13             );
14              
15             =head1 NAME
16              
17             AI::FANN::Evolving::Factory - creator of objects
18              
19             =head1 METHODS
20              
21             =over
22              
23             =item new
24              
25             Constructor takes named arguments. Key is a short name (e.g. 'traindata'), value is a
26             fully qualified package name (e.g. L) from which to instantiate
27             objects identified by the short name.
28              
29             =back
30              
31             =cut
32              
33 0     0 1   sub new { shift->SUPER::new(%defaults,@_) }
34              
35             1;