File Coverage

blib/lib/Medical/ICD10/Graph.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package Medical::ICD10::Graph;
2              
3 3     3   1001 use strict;
  3         7  
  3         133  
4 3     3   17 use warnings;
  3         6  
  3         100  
5              
6 3     3   2725 use Graph::Directed;
  3         420071  
  3         377  
7              
8             =head1 NAME
9              
10             Medical::ICD10::Graph - ICD10 Graph object
11              
12             =head1 METHODS
13              
14             =head2 new
15              
16             Creates a new graph object with a single edge, the root.
17            
18             Do not use this module directly, this is for the sole purpose
19             of manipulating the internal graph that stores the ontology.
20              
21             =cut
22              
23             sub new {
24 2     2 1 463 my $class = shift;
25            
26 2         22 my $self = Graph::Directed->new();
27 2         598 $self->add_vertex( 'root' );
28 2         105 $self->set_vertex_attribute('root', 'description', 'This is the root node.' );
29            
30 2         396 return $self;
31             }
32              
33              
34             =head1 AUTHOR
35              
36             Spiros Denaxas, C<< >>
37              
38             =head1 BUGS
39              
40             Please report any bugs or feature requests to C, or through
41             the web interface at L. I will be notified, and then you'll
42             automatically be notified of progress on your bug as I make changes.
43              
44             =head1 SOURCE CODE
45              
46             The source code can be found on github L
47              
48             =head1 SUPPORT
49              
50             You can find documentation for this module with the perldoc command.
51              
52             perldoc Medical::ICD10
53              
54              
55             You can also look for information at:
56              
57             =over 4
58              
59             =item * RT: CPAN's request tracker
60              
61             L
62              
63             =item * AnnoCPAN: Annotated CPAN documentation
64              
65             L
66              
67             =item * CPAN Ratings
68              
69             L
70              
71             =item * Search CPAN
72              
73             L
74              
75             =back
76              
77             =head1 LICENSE AND COPYRIGHT
78              
79             Copyright 2011 Spiros Denaxas.
80              
81             This program is free software; you can redistribute it and/or modify it
82             under the terms of either: the GNU General Public License as published
83             by the Free Software Foundation; or the Artistic License.
84              
85             See http://dev.perl.org/licenses/ for more information.
86              
87              
88             =cut
89              
90              
91             1;