File Coverage

blib/lib/Astro/VEX/NamedItem.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 2 0.0
total 14 16 87.5


line stmt bran cond sub pod time code
1             package Astro::VEX::NamedItem;
2              
3             =head1 NAME
4              
5             Astro::VEX::NamedItem - VEX (VLBI Experiment Definition) named item base class
6              
7             =cut
8              
9 2     2   743 use strict;
  2         4  
  2         53  
10 2     2   8 use warnings;
  2         17  
  2         164  
11              
12             our $VERSION = '0.001';
13              
14             sub name {
15 19     19 0 25 my $self = shift;
16              
17 19         49 return $self->{'NAME'};
18             }
19              
20             sub indent {
21 5     5 0 6 my $self = shift;
22              
23 5         15 return 5;
24             }
25              
26             1;
27              
28             __END__