File Coverage

blib/lib/Astro/VEX.pm

Criterion	Covered	Total	%
statement	26	27	96.3
branch	4	6	66.6
condition	3	7	42.8
subroutine	6	6	100.0
pod	0	3	0.0
total	39	49	79.5

package Astro::VEX;

=head1 NAME

Astro::VEX - VEX (VLBI Experiment Definition) file handling module

=cut

use strict;
use warnings;

our $VERSION = '0.001';

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

sub new {
    my $proto = shift; my $class = ref($proto) || $proto;
    my %opt = @_;

    if (exists $opt{'text'}) {
        require Astro::VEX::Parse;
        return Astro::VEX::Parse->parse_vex($opt{'text'});
    }

    return bless {
        VERSION => $opt{'version'} // '1.5',
        CONTENT => $opt{'content'} // [],
    }, $class;
}

sub block {
    my $self = shift;
    my $name = shift;

    for my $item (@{$self->{'CONTENT'}}) {
        if ($item->isa('Astro::VEX::Block')) {
            if ($item->name eq $name) {
                return $item;
            }
        }
    }

    die 'Block not found: ' . $name;
}

sub stringify {
    my $self = shift;

    return join "\n", 'VEX_rev = ' . $self->{'VERSION'} . ';', @{$self->{'CONTENT'}}, '';
}

1;

__END__