use strict;
use warnings;
+use vars (qw($TREE));
use Carp qw(carp confess);
+use Exporter;
=head1 NAME
=cut
-our $Tree = {};
+@Onis::Data::Persistent::None::EXPORT_OK = (qw($TREE));
+@Onis::Data::Persistent::None::ISA = ('Exporter');
if ($::DEBUG & 0x0200)
{
my $id = $caller . ':' . $name;
- if (exists ($Tree->{$id}))
+ if (!exists ($TREE->{$id}))
{
- print STDERR $/, __FILE__, ": Name $name has been used in context $caller before.";
- return (undef);
+ $TREE->{$id} = {};
}
- $Tree->{$id} = {};
- $obj->{'data'} = $Tree->{$id};
-
+ $obj->{'data'} = $TREE->{$id};
$obj->{'key'} = $key;
$obj->{'fields'} = [@fields];
$obj->{'num_fields'} = scalar (@fields);
if ($::DEBUG & 0x0200)
{
- print STDOUT $/, __FILE__, ': GET(', $obj->{'id'}, ', ', $key, ') = (' . join (', ', @{$obj->{'fields'}}) . ')';
+ print STDOUT $/, __FILE__, ': GET(', $obj->{'id'}, ', ', $key, ') = (' . join (', ', @{$obj->{'data'}{$key}}) . ')';
}
return (@{$obj->{'data'}{$key}});