File Coverage

lib/Metadata/DB.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Metadata::DB;
use strict;
use LEOCHARRE::DEBUG;
use LEOCHARRE::Class2;
use base 'Metadata::Base';
use base 'Metadata::DB::Base';
use Carp;
use vars qw($VERSION);
$VERSION = sprintf "%d.%02d", q$Revision: 1.15 $ =~ /(\d+)/g;

__PACKAGE__->make_constructor();
__PACKAGE__->make_accessor_setget({
   loaded => undef,
   id => undef,
});
no warnings 'redefine';

# overriding  Metadata::Base::Write
*write = \&save;
sub save {
   my $self = shift;
   #my $id = $self->id or confess('no id is set');
   my $id;
   unless( $id = $self->id ){
      # gen new

      $id = $self->table_metadata_last_record_id + 1; #thus would set to 1 in none yet
      $self->id($id);
   }


   $self->_record_entries_delete( $id );
   $self->_table_metadata_insert_multiple( $id, $self->get_all );

   return $id;
}


#does obj id exist in db
# if id_exists just returns entries_count, might as well be an alias
#sub id_exists { $_[0]->entries_count }
*id_exists = \&entries_count;

sub entries_count {
   my $self = shift;
   my $id = $self->id or warn("no id is set");
   return $self->_record_entries_count($id);
}


*elements_count = \&Metadata::Base::size;
#sub elements_count {
#   my $self = shift;
#   my @e = $self->elements;
#   my $c = scalar @e;
#   debug("$c\n");
#   return $c;
#}


# take object and return meta hash ref of what it holds
sub _get_meta_from_object {
   my $self = shift;

   my $meta = {};

   my @elements = $self->elements or return {};


   my $c = $self->elements_count;
   debug("[count was $c], have: [@elements]\n");

   for my $key (@elements){
      my @values = $self->get($key);
      $meta->{$key} = \@values;
   }
   return $meta;
}
*get_all = \&_get_meta_from_object;


# overriding Metadata::Base::Read
*read = \&load;
sub load {
   my $self = shift;

   my $id = $self->id or confess('cannot load, no id is set, no id was passed as arg');
   #debug('calling clear..');
   #$self->clear;
   $self->loaded(1);

   if ( my $meta= $self->_record_entries_hashref($id) ){
      debug("found meta for: $id");
      $self->add(%$meta); # what happens if we load twice???
   }
   return 1;
}


sub add {
   my $self = shift;

   while( scalar @_){
      my($key,$val) = (shift,shift);
      defined $key and defined $val or confess('undefined values');
      #debug("adding $key:$val\n");
      # TODO , what if $val is an array ref?? then... is set just recording ONE ????
      # Metadata::Base says if the value is array ref, then all vals are recorded
      $self->set($key, $val);
   }
   return 1;
}



# lookup
sub lookup {
   my $self = shift;

   # are there any atts set??
   $self->elements or $self->errstr("No elements present, no atts.") and return;

   my $metaref = $self->get_all;
   my $found_id = $self->_find_record_id_via_record_entries_hashref($metaref) or return;
   # load it? i guess yes

   $self->id($found_id);
   $self->load;
   $found_id;
}






1;

__END__