File Coverage

blib/lib/Medical/OPCS4/Term.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1 1     1   6 use strict;
  1         3  
  1         39  
2 1     1   6 use warnings;
  1         2  
  1         45  
3              
4             package Medical::OPCS4::Term;
5             # ABSTRACT: An OPCS4 term object.
6              
7 1     1   5 use base 'Class::Accessor';
  1         2  
  1         1009  
8              
9             Medical::OPCS4::Term->mk_accessors( qw( term description) );
10              
11             =head1 METHODS
12              
13             =head2 description
14              
15             Returns a scalar containing the term's description.
16              
17             my $desc = $O->description;
18              
19             =cut
20              
21             =head2 term
22              
23             Returns a scalar containing the term's name.
24              
25             my $term = $O->term;
26              
27             =cut
28              
29             1;