File Coverage

blib/lib/Astro/STSDAS/Table/HeaderPars.pm

Criterion	Covered	Total	%
statement	44	48	91.6
branch	7	8	87.5
condition	1	3	33.3
subroutine	12	13	92.3
pod	8	8	100.0
total	72	80	90.0

package Astro::STSDAS::Table::HeaderPars;

require 5.005_62;
use strict;
use warnings;

use Carp;

our $VERSION = '0.02';

use Astro::STSDAS::Table::HeaderPar;

# manages the header parameters

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


  my $self = {
	      vars => {},
	      idx => 0,
	      };

  bless $self, $class;
}

sub npars
{
  scalar keys %{$_[0]->{vars}};
}

sub add
{
  my $self = shift;

  my $name = uc shift;

  $self->_add(
	      Astro::STSDAS::Table::HeaderPar->new( ++$self->{idx},
							  $name, @_ ) );
}

sub _add
{
  my ( $self, $par ) = @_;

  if ( exists $self->{vars}{uc $par->name} )
  {
    $self->{idx}--;
    croak( __PACKAGE__, "->add: duplicate parameter name `",
	   $par->name, "'\n" );
  }

  $self->{vars}{$par->name} = $par;

  $par;
}

sub pars
{
  return sort { $a->idx <=> $b->idx } values %{$_[0]->{vars}};
}

sub byname
{
  my $name = uc $_[1];
  return undef unless exists $_[0]->{vars}{$name};
  $_[0]->{vars}{$name};
}


sub delbyname
{
  my $self = shift;
  my $name = uc shift;

  return 0 unless exists $self->{vars}{$name};

  delete $self->{vars}{$name};
  1;
}

sub rename
{
  my ( $self, $name, $newname ) = @_;

  my $hdrp = $self->byname($name);
  return undef unless defined $hdrp;

  $self->delbyname( $name );

  $hdrp->name($newname);
  $self->_add( $hdrp );
}


sub copy
{
  my $self = shift;

  my $new = $self->new;

  $new->_add( $_->copy ) foreach values %{$self->{vars}};
}


1;
__END__