view release on metacpan or  search on metacpan

NCA.pm  view on Meta::CPAN

    my $self = fields::new($class);
    @$self{keys %args} = values %args;
    return $self;
}

package Algorithm::Tree::NCA;

use strict;
use warnings;

use Data::Dumper;

require Exporter;

our @ISA = qw(Exporter);

# Items to export into callers namespace by default. Note: do not export
# names by default without a very good reason. Use EXPORT_OK instead.
# Do not simply export all your public functions/methods/constants.

our @EXPORT_OK = ();

t/preprocess.t  view on Meta::CPAN

my @Magic = (undef, 8, 12, 13, 12, 8, 10, 9, 8, 9, 10);

my $Tree = Node->new(Node->new(Node->new(),
			       Node->new()),
		     Node->new(Node->new(),
			       Node->new(),
			       Node->new(Node->new(),
					 Node->new())));
ok(2);

use Data::Dumper;

my $nca = new Algorithm::Tree::NCA;
$nca->preprocess($Tree);

# Check that the leader is correct
{
    my $bad = 0;
    foreach my $d (@{$nca->{_data}}) {
	if (defined($d) 
	    && ($Leader[$d->{_number}] != $d->{_leader}->{_number}))