File Coverage

blib/lib/Astro/VEX/Param.pm

Criterion	Covered	Total	%
statement	27	29	93.1
branch	2	4	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	0	4	0.0
total	38	48	79.1

package Astro::VEX::Param;

=head1 NAME

Astro::VEX::Param - VEX (VLBI Experiment Definition) parameter class

=cut

use strict;
use warnings;

our $VERSION = '0.001';

use parent qw/Astro::VEX::NamedItem/;

use overload '""' => 'stringify';

sub new {
    my $proto = shift; my $class = ref($proto) || $proto;
    my $name = shift;
    my $values = shift;

    return bless {
        NAME => $name,
        VALUES => $values,
    }, $class;
}

sub item {
    my $self = shift;

    my $num_val = scalar @{$self->{'VALUES'}};

    if ($num_val == 0) {
        die 'Parameter has no values';
    }
    elsif ($num_val > 1) {
        die 'Parameter has multiple values';
    }

    return $self->{'VALUES'}->[0];
}

sub value {
    my $self = shift;

    return $self->item->value;
}

sub stringify {
    my $self = shift;

    return (' ' x $self->indent) . $self->{'NAME'} . ' = ' . (join ' : ', @{$self->{'VALUES'}}) . ';';
}

1;

__END__