Added Onis::Data::Persistency::Storable.. Not yet tested it, though..

[onis.git] / lib / Onis / Data / Persistent / None.pm

diff --git a/lib/Onis/Data/Persistent/None.pm b/lib/Onis/Data/Persistent/None.pm
index 35a0dec..c8b77fd 100644 (file)
--- a/lib/Onis/Data/Persistent/None.pm
+++ b/lib/Onis/Data/Persistent/None.pm
@@ -2,10 +2,10 @@ package Onis::Data::Persistent::None;
 
 use strict;
 use warnings;
-
 use vars (qw($TREE));
 
-use Carp qw(confess);
+use Carp qw(carp confess);
+use Exporter;
 
 =head1 NAME
 
@@ -21,7 +21,13 @@ None.
 
 =cut
 
-$TREE = {};
+@Onis::Data::Persistent::None::EXPORT_OK = (qw($TREE));
+@Onis::Data::Persistent::None::ISA = ('Exporter');
+
+if ($::DEBUG & 0x0200)
+{
+       require Data::Dumper;
+}
 
 return (1);
 
@@ -51,6 +57,14 @@ sub new
        $obj->{'num_fields'} = scalar (@fields);
        $obj->{'field_index'} = {map { $_ => $i++ } (@fields)};
        $obj->{'id'} = $id;
+
+       if ($::DEBUG & 0x0200)
+       {
+               my $prefix = __FILE__ . ': ';
+               my $dbg = Data::Dumper->Dump ([$obj], ['obj']);
+               $dbg =~ s/^/$prefix/mg; chomp ($dbg);
+               print STDOUT $/, $dbg;
+       }
        
        return (bless ($obj, $pkg));
 }
@@ -64,10 +78,15 @@ sub put
        if ($obj->{'num_fields'} != scalar (@fields))
        {
                my $id = $obj->{'id'};
-               print STDERR $/, __FILE__, ": Number of fields do not match ($id).";
+               carp ("Number of fields do not match ($id).");
                return;
        }
 
+       if ($::DEBUG & 0x0200)
+       {
+               print STDOUT $/, __FILE__, ': PUT(', $obj->{'id'}, ', ', $key, ') = (' . join (', ', @fields) . ')';
+       }
+
        $obj->{'data'}{$key} = [@fields];
 }
 
@@ -81,6 +100,11 @@ sub get
                return (qw());
        }
 
+       if ($::DEBUG & 0x0200)
+       {
+               print STDOUT $/, __FILE__, ': GET(', $obj->{'id'}, ', ', $key, ') = (' . join (', ', @{$obj->{'data'}{$key}}) . ')';
+       }
+
        return (@{$obj->{'data'}{$key}});
 }