File Coverage

lib/Graph/D3.pm

Criterion	Covered	Total	%
statement	40	40	100.0
branch	7	10	70.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	56	59	94.9

package Graph::D3;

use strict;
use 5.008_005;
our $VERSION = '0.03';

use Moo;
use JSON;
use Graph;

has graph => (
    is => 'ro',
    required => 1
);

has type => (
    is => 'ro',
    default => sub { 'ref' },
);

# https://gist.github.com/mbostock/4062045
# http://bl.ocks.org/mbostock/4062045
sub force_directed_graph {
    my $self = shift;
    my @nodes;
    my %nodes;
    my $counter = 0;
    for my $vertex ($self->graph->vertices) {
        my $group = $self->graph->get_vertex_attribute($vertex, 'group');
        $group = 1 unless (defined $group);
        push @nodes, { name => $vertex, group => $group };
        $nodes{$vertex} = $counter;
        $counter++;
    }
    my @links;
    for my $edges ($self->graph->edges) {
        my ($n1, $n2) = @$edges;
        my $value = $self->graph->get_edge_attribute($n1, $n2, 'value');
        $value = 1 unless (defined $value);
        push @links, {source => $nodes{$n1}, target => $nodes{$n2}, value => $value};
    }
    my $output =  { nodes => \@nodes, links => \@links };
    return $self->type eq 'json' ? encode_json $output : $output;
}

# http://mbostock.github.io/d3/talk/20111116/bundle.html
sub hierarchical_edge_bundling {
    my $self = shift;
    my @bundle;
    for my $vertex ($self->graph->vertices) {
        my $size = $self->graph->get_vertex_attribute($vertex, 'size');
        $size = 1 unless (defined $size);
        my @imports = $self->graph->predecessors($vertex);
        push @bundle, {name => $vertex, size => $size, imports => \@imports };
    }
    return $self->type eq 'json' ? encode_json \@bundle : \@bundle;
}


1;
__END__