sub new {
   my $class = shift;
   my $self  = {
      day       => '',
      some_list => [],
      some_hash => {},
   };
   return bless $self, $class;
}

##</code><code>##

# grab the pk if found, remove it and store for later use
# and remove it's column from the table
if (exists $self->{'pk'}) {
   $self->{'pk_index'} = delete $self->{'fields_hash'}->{$self->{'pk'}};
   splice(@{$self->{'fields_arry'}},$self->{'pk_index'},1)
      if defined $self->{'pk_index'};
}

##</code><code>##

sub get_attrib { shift->{shift} }