File Coverage

blib/lib/Astro/VEX/Ref.pm
Criterion Covered Total %
statement 12 20 60.0
branch n/a
condition 0 3 0.0
subroutine 4 6 66.6
pod 0 2 0.0
total 16 31 51.6


line stmt bran cond sub pod time code
1             package Astro::VEX::Ref;
2              
3             =head1 NAME
4              
5             Astro::VEX::Ref - VEX (VLBI Experiment Definition) reference class
6              
7             =cut
8              
9 2     2   10 use strict;
  2         4  
  2         49  
10 2     2   9 use warnings;
  2         4  
  2         67  
11              
12             our $VERSION = '0.001';
13              
14 2     2   8 use parent qw/Astro::VEX::NamedItem/;
  2         29  
  2         9  
15              
16 2     2   125 use overload '""' => 'stringify';
  2         4  
  2         9  
17              
18             sub new {
19 0   0 0 0   my $proto = shift; my $class = ref($proto) || $proto;
  0            
20 0           my $name = shift;
21 0           my $values = shift;
22              
23 0           return bless {
24             NAME => $name,
25             VALUES => $values,
26             }, $class;
27             }
28              
29             sub stringify {
30 0     0 0   my $self = shift;
31              
32 0           return (' ' x $self->indent) . 'ref $' . $self->{'NAME'} . ' = ' . (join ' : ', @{$self->{'VALUES'}}) . ';';
  0            
33             }
34              
35             1;
36              
37             __END__