File Coverage

blib/lib/Data/Graph/Shared.pm

Criterion	Covered	Total	%
statement	14	15	93.3
branch	2	2	100.0
condition			n/a
subroutine	4	5	80.0
pod	0	2	0.0
total	20	24	83.3

package Data::Graph::Shared;
use strict;
use warnings;
our $VERSION = '0.04';
require XSLoader;
XSLoader::load('Data::Graph::Shared', $VERSION);

sub CLONE_SKIP { 1 }  # blessed C-pointer handle: never clone into ithreads (double-free)

sub nodes {
    my ($self) = @_;
    my @nodes;
    for my $i (0 .. $self->max_nodes - 1) {
        push @nodes, $i if $self->has_node($i);
    }
    return @nodes;
}

sub each_neighbor {
    my ($self, $node, $cb) = @_;
    for my $pair ($self->neighbors($node)) {
        $cb->($pair->[0], $pair->[1]);
    }
}

1;
__END__