File Coverage

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

Criterion	Covered	Total	%
statement	25	50	50.0
branch	0	14	0.0
condition	1	3	33.3
subroutine	8	14	57.1
pod	3	5	60.0
total	37	86	43.0

package Astro::STSDAS::Table::Base;

our $VERSION = '0.12';

use strict;
use Config;
use POSIX;


use IO::File;
use Carp qw( carp croak );

use Astro::STSDAS::Table::HeaderPars;
use Astro::STSDAS::Table::Columns;

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

  my $self = {
	     # the filehandle to the table
	     fh	=> undef,

	     pars => Astro::STSDAS::Table::HeaderPars->new(),

	     cols => Astro::STSDAS::Table::Columns->new(),

	     nrows => undef,

	     file => undef,

	     mode => undef,

	     fh => undef

	    };


  bless $self, $class;
}

sub open
{
  @_ >=2 or croak 'usage : $self->open( $file [, $mode] )';
  my ( $self, $file, $mode ) = @_;

  $mode = '<' if ! defined $mode;
  $self->{mode} = $mode;
  my $fh = new IO::File;

  if ( ref($file) )
  {
    $fh->fdopen( $file, $mode ) || return undef;
  }
  else
  {
    $fh->open( $file, $mode ) || return undef;
  }

  $self->{file} = $file;
  $self->{fh} = $fh;

  # if this is open for reading, suck in the header
  if ( $mode =~ /[<+]/ )
  {
    $self->_read_hdr;
  }

  1;
}

sub METHOD::ABSTRACT
{
  my ($self) = @_;
  my $object_class = ref($self);
  my ($file, $line, $method) = (caller(1))[1..3];
  my $loc = "at $file, line $line\n";
  die "call to abstract method ${method} $loc";
}


sub _read_hdr { ABSTRACT METHOD @_ }
sub read_cols { ABSTRACT METHOD }
sub read_rows { ABSTRACT METHOD }

sub close
{
  my $self = shift;

  if ( defined $self->{fh} )
  {
    close $self->{fh};
    $self->{fh} = undef;
  }
}


1;

__END__