1package Graph::Undirected;
2
3use Graph;
4use base 'Graph';
5use strict;
6
7=pod
8
9=head1 NAME
10
11Graph::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
26Graph::Undirected allows you to create undirected graphs.
27
28For the available methods, see L<Graph>.
29
30=head1 SEE ALSO
31
32L<Graph>, L<Graph::Directed>
33
34=head1 AUTHOR AND COPYRIGHT
35
36Jarkko Hietaniemi F<jhi@iki.fi>
37
38=head1 LICENSE
39
40This module is licensed under the same terms as Perl itself.
41
42=cut
43
44sub new {
45    my $class = shift;
46    bless Graph->new(undirected => 1, @_), ref $class || $class;
47}
48
491;
50