perllib/Graph/Undirected.pm

   1 package Graph::Undirected;
   2
   3 use Graph;
   4 use base 'Graph';
   5 use strict;
   6
   7 =pod
   8
   9 =head1 NAME
  10
  11 Graph::Undirected - undirected graphs
  12
  13 =head1 SYNOPSIS
  14
  15     use Graph::Undirected;
  16     my $g = Graph::Undirected->new;
  17
  18     # Or alternatively:
  19
  20     use Graph;
  21     my $g = Graph->new(undirected => 1);
  22     my $g = Graph->new(directed => 0);
  23
  24 =head1 DESCRIPTION
  25
  26 Graph::Undirected allows you to create undirected graphs.
  27
  28 For the available methods, see L<Graph>.
  29
  30 =head1 SEE ALSO
  31
  32 L<Graph>, L<Graph::Directed>
  33
  34 =head1 AUTHOR AND COPYRIGHT
  35
  36 Jarkko Hietaniemi F<jhi@iki.fi>
  37
  38 =head1 LICENSE
  39
  40 This module is licensed under the same terms as Perl itself.
  41
  42 =cut
  43
  44 sub new {
  45     my $class = shift;
  46     bless Graph->new(undirected => 1, @_), ref $class || $class;
  47 }
  48
  49 1;