#!/usr/bin/perl

use strict;
use warnings;
use Data::Dump::Streamer;
use Voting::Condorcet::RankedPairs;

my $rp = Voting::Condorcet::RankedPairs->new(
         ordered_input => 1  );
$rp->add('clean', 'porn', 0.7);
$rp->add('null', 'undecided', 0.6);

my @winners = $rp->strict_winners;
my @results = $rp->strict_rankings;

my $graph = $rp->graph;
print $graph, "\n";
print Dump $graph, "\n";