File Coverage

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

Criterion	Covered	Total	%
statement	37	37	100.0
branch	7	8	87.5
condition	4	6	66.6
subroutine	12	12	100.0
pod	3	3	100.0
total	63	66	95.4

package Astro::STSDAS::Table::HeaderPar;

require 5.005_62;
use strict;
use warnings;

use Carp;

our $VERSION = '0.01';

use Astro::STSDAS::Table::Constants;

our @hdrkeys = qw( idx name value comment type );


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

  my $self = bless {}, $class;

  @{$self}{@hdrkeys} = @_;

  $self->{name} = uc $self->{name};

  croak( __PACKAGE__, '->new: illegal header type' )
    if defined $self->{type} && ! exists $Types{$self->{type}};

  $self;
}

sub name
{
  my $self = shift;
  $self->{name} = uc $_[0] if @_;
  $self->{name};
}

sub _access_rw
{
  my $what = shift;

  sub {
    my $self = shift;
    $self->{$what} = $_[0] if @_;
    $self->{$what};
  }
}

sub _access_ro
{
  my $what = shift;
  sub { croak( __PACKAGE__, "->$what: attempt to write to RO attribute" )
	  if @_ > 1;
	$_[0]->{$what}
      }
}


{
  no strict 'refs';
  *$_ = _access_rw( $_ ) foreach qw( value comment type );

  *$_ = _access_ro( $_ ) foreach qw( idx );
}

sub copy
{
  $_[0]->new( @{$_[0]}{@hdrkeys} );
}


1;
__END__