File Coverage

blib/lib/Graph/Maker/BiStar.pm

Criterion	Covered	Total	%
statement	6	8	75.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	9	11	81.8

# Copyright 2017 Kevin Ryde
#
# This file is part of Graph-Maker-Other.
#
# This file is free software; you can redistribute it and/or modify it
# under the terms of the GNU General Public License as published by the Free
# Software Foundation; either version 3, or (at your option) any later
# version.
#
# This file is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for more details.
#
# You should have received a copy of the GNU General Public License along
# with Graph-Maker-Other.  See the file COPYING.  If not, see
# .


package Graph::Maker::BiStar;
use 5.004;
use strict;
use Graph::Maker;

use vars '$VERSION','@ISA';
$VERSION = 8;
@ISA = ('Graph::Maker');


sub _default_graph_maker {
  require Graph;
  return Graph->new(@_);
}
sub _make_graph {
  my ($params) = @_;
  my $graph_maker = delete($params->{'graph_maker'}) || \&_default_graph_maker;
  return $graph_maker->(%$params);
}

sub init {
  my ($self, %params) = @_;
  my $N = delete($params{'N'}) || 0;
  my $M = delete($params{'M'}) || 0;

  my $graph = _make_graph(\%params);
  $graph->set_graph_attribute (name => "Bi-Star $N,$M");
  my $directed = $graph->is_directed;
  my $from = 1;
  foreach my $size ($N, $M) {
    next unless $size;
    $graph->add_vertex($from);
    foreach my $add (1 .. $size-1) {
      $graph->add_edges($from, $from+$add,
                        ($directed ? ($from+$add, $from) : ()));
    }
    $from += $size;
  }
  if ($N && $M) {
    $graph->add_edge (1, 1+$N);
  }
  return $graph;
}

Graph::Maker->add_factory_type('bi_star' => __PACKAGE__);
1;

__END__