File Coverage

blib/lib/Astro/VEX/Param/Empty.pm
Criterion Covered Total %
statement 9 16 56.2
branch n/a
condition 0 3 0.0
subroutine 3 6 50.0
pod 0 3 0.0
total 12 28 42.8


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