File Coverage

blib/lib/DBR/Record/Base.pm

Criterion	Covered	Total	%
statement	6	21	28.5
branch	0	4	0.0
condition			n/a
subroutine	2	6	33.3
pod	0	4	0.0
total	8	35	22.8

# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation.

package DBR::Record::Base;
use strict;
use Carp;

###################
#
# This package serves as a base class for all dynamically created record objects
#
###################


# This version of get is less efficient for fields that aren't prefetched, but much faster overall I think
sub get{
      my $self = shift;
      wantarray?(map { $self->$_ } map { split(/\s+/,$_) } @_) : [ map { $self->$_ } map { split(/\s+/,$_) } @_ ];
}

sub gethash{
      my $self = shift;
      my @fields = map { split(/\s+/,$_) } @_;

      my %ret;
      @ret{@fields} =  map { ($self->$_) } @fields;
      wantarray?( %ret ) : \%ret;
}

# sub set {
#       # helper     $self, args
#       $_[0][1]->set($_[0],@_);
# }

sub next { croak "Can not call next on a record" }

sub TO_JSON { die "This part doesn't work yet" } #HERE - this needs work

#sub DESTROY { print STDERR "RECORD DESTROY $_[0]\n"}
1;