view release on metacpan or  search on metacpan

Table/Base.pm  view on Meta::CPAN

  use Astro::STSDAS::Table::Base;

  @isa = qw( Astro::STSDAS::Table::Base );

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

    my $self = $class->SUPER::new();

    ...

    bless $self, $class;
  }

=head1 DESCRIPTION

B<Astro::STSDAS::Table::Base> is a base class and should be sub-classed
to derive any functionality.  B<Astro::STSDAS::Table::Binary> is a

Table/Binary.pm  view on Meta::CPAN

 # last_col - the last column read, for column ordered tables
 # buf      - the input buffer, row_len bytes wide.
 # have_vecs - the table has vectors


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

  my $self = $class->SUPER::new();

  $self->{last_col_idx} = -1;
  $self->{last_col} = undef;
  $self->{row} = 0;

  bless $self, $class;
}


# _read_hdr