File Coverage

blib/lib/Astro/VEX/Param/Number.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	3	0.0
total	34	39	87.1

package Astro::VEX::Param::Number;

=head1 NAME

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

=cut

use strict;
use warnings;

our $VERSION = '0.001';

use parent qw/Astro::VEX::Param::Value/;

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

sub new {
    my $proto = shift; my $class = ref($proto) || $proto;
    my $value = shift;
    my $unit = shift;

    return bless {
        VALUE => $value,
        UNIT => $unit,
    }, $class;
}

sub unit {
    my $self = shift;
    return $self->{'UNIT'};
}

sub stringify {
    my $self = shift;

    my $value = $self->{'VALUE'};
    my $unit = $self->{'UNIT'};

    return $value unless defined $unit;

    return sprintf '%s %s', $value, $unit;
}

1;

__END__