Algorithm-Voting

 view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use Module::Build;

my $builder = Module::Build->new(
    module_name       => 'Algorithm::Voting',
    license           => 'perl',
    dist_author       => 'John Trammell <johntrammell@gmail.com>',
    dist_version_from => 'lib/Algorithm/Voting.pm',
    requires => {
        'Carp'                  => 0,
        'Class::Accessor::Fast' => 0,
        'Data::Dumper'          => 0,
        'Digest::MD5'           => 0,
        'List::Util'            => 0,
        'Math::BigInt'          => 0,
        'Params::Validate'      => 0,
        'Scalar::Util'          => 0,
    },
    build_requires => {
        'base'                  => 0,
        'strict'                => 0,
        'warnings'              => 0,

META.yml  view on Meta::CPAN

version: 0.01
author:
  - 'John Trammell <johntrammell@gmail.com>'
abstract: voting algorithm implementations
license: perl
resources:
  license: http://dev.perl.org/licenses/
requires:
  Carp: 0
  Class::Accessor::Fast: 0
  Data::Dumper: 0
  Digest::MD5: 0
  List::Util: 0
  Math::BigInt: 0
  Params::Validate: 0
  Scalar::Util: 0
build_requires:
  File::Spec: 0
  Module::Build::Compat: 0
  Test::Exception: 0
  Test::More: 0

t/plurality/01-simple.t  view on Meta::CPAN

use Test::More 'no_plan';
use Data::Dumper;

use_ok('Algorithm::Voting::Plurality');
use_ok('Algorithm::Voting::Ballot');

my $ballot = sub {
    return Algorithm::Voting::Ballot->new($_[0]);
};

my $box = Algorithm::Voting::Plurality->new();
ok($box);

t/sortition/10-rfc3797.t  view on Meta::CPAN

# $Id$
# $URL$

use strict;
use warnings;
use Data::Dumper;
use Test::More 'no_plan';

my $avs = 'Algorithm::Voting::Sortition';
use_ok($avs);

# verify that A::V::S generates the same keystring as in
# L<http://tools.ietf.org/html/rfc3797#section-6>
{
    my @source = (
        "9319",