File Coverage

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

Criterion	Covered	Total	%
statement	12	29	41.3
branch	0	14	0.0
condition			n/a
subroutine	4	5	80.0
pod	1	1	100.0
total	17	49	34.6

package Astro::STSDAS::Table::Simple;

use strict;
use warnings;

use Astro::STSDAS::Table::Binary;

use Carp;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = ( 'all' => [ qw(
  read_binary
) ] );

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our $VERSION = '0.01';


sub read_table
{
  my ( $file, %uattr ) = @_;


  my %attr = ( input => 'Binary',
	       output => 'RowHash',
	     );

  my ( $key, $val );
  $attr{lc $key} = $val while( ( $key, $val ) = each %uattr );

  my $input = lc $attr{input};
  my $output = lc $attr{output};

  croak( __PACKAGE__, "->read_table: only binary tables are supported\n" )
    unless 'binary' eq $input;


  my $tbl;
  if ( 'binary' eq $input )
  {
    $tbl = Astro::STSDAS::Table::Binary->new;
  }

  $tbl->open( $file ) or
    croak( __PACKAGE__, "::read_table: unable to open $file\n" );

  if    ( 'rowhash' eq $output )
  {
    $tbl->read_rows_hash
  }
  elsif ( 'colhash' eq $output )
  {
    $tbl->read_cols_hash
  }
  elsif ( 'rowarray' eq $output )
  {
    $tbl->read_rows_array
  }
  elsif ( 'rowarray' eq $output )
  {
    $tbl->read_rows_array
  }
  else
  {
    croak( __PACKAGE__,
	   "::read_table: unknown output type: $attr{output}\n" );
  }
}

1;

__END__