File Coverage

blib/lib/Graph/NewmanGirvan.pm

Criterion	Covered	Total	%
statement	12	31	38.7
branch			n/a
condition	0	5	0.0
subroutine	4	6	66.6
pod	0	2	0.0
total	16	44	36.3

package Graph::NewmanGirvan;

use 5.010000;
use strict;
use warnings;
use List::Util 'sum';

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
  newman_girvan
  newman_girvan_r
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.3';

require XSLoader;
XSLoader::load('Graph::NewmanGirvan', $VERSION);

sub newman_girvan {
  my $g = shift;
  my $p = Graph::NewmanGirvan->new;
  my %default_weight;

  for ($g->edges) {
    my ($src, $dst) = @$_;
    my $weight = $g->get_edge_weight($src, $dst) // 1.0;
    $p->add_edge($src, $dst, $weight);
    $default_weight{$src} += $weight;
    $default_weight{$dst} += $weight;
  }
  foreach my $vertex ($g->vertices) {
    my $weight = $g->get_vertex_weight($vertex) // $default_weight{$vertex};
    $p->set_vertex_weight($vertex, $weight);
  }
  return $p->compute;
}

sub newman_girvan_r {
  my ($g) = @_;
  my %clustering = newman_girvan($g);
  my %reverse;
  push @{ $reverse{ $clustering{$_} } }, $_ for keys %clustering;
  %reverse;
}


1;
__END__