File Coverage

blib/lib/Graph/Undirected.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition 2 3 66.6
subroutine 5 5 100.0
pod 1 1 100.0
total 22 23 95.6


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