File Coverage

blib/lib/Astro/VEX/Link.pm
Criterion Covered Total %
statement 9 15 60.0
branch n/a
condition 0 3 0.0
subroutine 3 5 60.0
pod 0 2 0.0
total 12 25 48.0


line stmt bran cond sub pod time code
1             package Astro::VEX::Link;
2              
3             =head1 NAME
4              
5             Astro::VEX::Link - VEX (VLBI Experiment Definition) link class
6              
7             =cut
8              
9 2     2   12 use strict;
  2         3  
  2         49  
10 2     2   9 use warnings;
  2         3  
  2         65  
11              
12             our $VERSION = '0.001';
13              
14 2     2   9 use overload '""' => 'stringify';
  2         2  
  2         9  
15              
16             sub new {
17 0   0 0 0   my $proto = shift; my $class = ref($proto) || $proto;
  0            
18 0           my $link = shift;
19              
20 0           return bless {
21             LINK => $link,
22             }, $class;
23             }
24              
25             sub stringify {
26 0     0 0   my $self = shift;
27              
28 0           return '&' . $self->{'LINK'};
29             }
30              
31             1;
32              
33             __END__