File Coverage

blib/lib/Astro/VEX/Block.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::Block;
2              
3             =head1 NAME
4              
5             Astro::VEX::Block - VEX (VLBI Experiment Definition) block class
6              
7             =cut
8              
9 2     2   12 use strict;
  2         4  
  2         60  
10 2     2   10 use warnings;
  2         5  
  2         86  
11              
12             our $VERSION = '0.001';
13              
14 2     2   752 use parent qw/Astro::VEX::Container/;
  2         529  
  2         10  
15              
16 2     2   82 use overload '""' => 'stringify';
  2         4  
  2         14  
17              
18             sub stringify {
19 1     1 0 2 my $self = shift;
20              
21 1         7 return join "\n", '$' . $self->name . ';', @{$self->{'CONTENT'}};
  1         30  
22             }
23              
24             1;
25              
26             __END__