File Coverage

blib/lib/Astro/VEX/Container.pm

Criterion	Covered	Total	%
statement	25	26	96.1
branch	4	4	100.0
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	3	0.0
total	36	42	85.7

package Astro::VEX::Container;

=head1 NAME

Astro::VEX::Container - VEX (VLBI Experiment Definition) container base class

=cut

use strict;
use warnings;

our $VERSION = '0.001';

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

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

    return bless {
        NAME => $name,
        CONTENT => $content,
    }, $class;
}

sub items {
    my $self = shift;

    return grep {not $_->isa('Astro::VEX::Comment')} @{$self->{'CONTENT'}};
}

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

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

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

1;

__END__