File Coverage

blib/lib/Astro/VEX/Scan.pm
Criterion Covered Total %
statement 12 15 80.0
branch n/a
condition n/a
subroutine 4 5 80.0
pod 0 1 0.0
total 16 21 76.1


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