File Coverage

blib/lib/Astro/VEX/Def.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package Astro::VEX::Def;
2              
3             =head1 NAME
4              
5             Astro::VEX::Def - VEX (VLBI Experiment Definition) definition block class
6              
7             =cut
8              
9 2     2   12 use strict;
  2         3  
  2         48  
10 2     2   8 use warnings;
  2         3  
  2         78  
11              
12             our $VERSION = '0.001';
13              
14 2     2   11 use parent qw/Astro::VEX::Container/;
  2         4  
  2         9  
15              
16 2     2   131 use overload '""' => 'stringify';
  2         4  
  2         9  
17              
18             sub stringify {
19 1     1 0 2 my $self = shift;
20              
21 1         5 return join "\n", 'def ' . $self->name . ';', @{$self->{'CONTENT'}}, 'enddef;';
  1         22  
22             }
23              
24             1;
25              
26             __END__