AI-Perceptron

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build;

my $build = Module::Build->new
  (
   module_name        => 'AI::Perceptron',
   dist_version_from  => 'lib/AI/Perceptron.pm',
   create_makefile_pl => 'passthrough',
   create_readme      => 1,
   license            => 'perl',
   build_requires     => {
			  'Test::More'    => '0.01',
			  'Module::Build' => '0.20',
		         },
   requires           => {
			  'accessors'     => '0.01',
		         },
  );

$build->create_build_script;

META.yml  view on Meta::CPAN

--- #YAML:1.0
name: AI-Perceptron
version: 1.0
license: perl
distribution_type: module
requires:
  accessors: 0.01
recommends: {}
build_requires:
  Module::Build: 0.20
  Test::More: 0.01
conflicts: {}
provides:
  AI::Perceptron:
    file: lib/AI/Perceptron.pm
    version: 1.0
generated_by: Module::Build version 0.20_02

t/01_basic.t  view on Meta::CPAN

#!/usr/bin/perl

##
## Test suite for AI::Perceptron
##

use Test::More 'no_plan'; # tests => 3;

use_ok( 'AI::Perceptron' );

my $p = AI::Perceptron->new
          ->num_inputs( 2 )
          ->learning_rate( 0.01 )
          ->threshold( 0.8 )
          ->weights([ -0.5, 0.5 ])
          ->max_iterations( 20 );

t/02_api.t  view on Meta::CPAN

#!/usr/bin/perl

##
## API tests for AI::Perceptron
##

use Test::More 'no_plan'; # tests => 3;

use AI::Perceptron;

my $p = AI::Perceptron->new
                      ->num_inputs( 3 )
                      ->learning_rate( 0.01 )
                      ->threshold( 0.02 )
                      ->weights([ 0.1, 0.2, -0.3 ])
                      ->max_iterations( 5 )
                      ->training_examples( [ -1 => 1, 2 ] );

 view all matches for this distribution
 view release on metacpan -  search on metacpan