projects
/
onis.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
919fb5a
..
c8b77fd
100644
(file)
--- a/
lib/Onis/Data/Persistent/None.pm
+++ b/
lib/Onis/Data/Persistent/None.pm
@@
-2,8
+2,10
@@
package Onis::Data::Persistent::None;
use strict;
use warnings;
use strict;
use warnings;
+use vars (qw($TREE));
use Carp qw(carp confess);
use Carp qw(carp confess);
+use Exporter;
=head1 NAME
=head1 NAME
@@
-19,7
+21,8
@@
None.
=cut
=cut
-our $Tree = {};
+@Onis::Data::Persistent::None::EXPORT_OK = (qw($TREE));
+@Onis::Data::Persistent::None::ISA = ('Exporter');
if ($::DEBUG & 0x0200)
{
if ($::DEBUG & 0x0200)
{
@@
-40,14
+43,14
@@
sub new
my $id = $caller . ':' . $name;
my $id = $caller . ':' . $name;
- if (exists ($T
ree
->{$id}))
+ if (exists ($T
REE
->{$id}))
{
print STDERR $/, __FILE__, ": Name $name has been used in context $caller before.";
return (undef);
}
{
print STDERR $/, __FILE__, ": Name $name has been used in context $caller before.";
return (undef);
}
- $T
ree
->{$id} = {};
- $obj->{'data'} = $T
ree
->{$id};
+ $T
REE
->{$id} = {};
+ $obj->{'data'} = $T
REE
->{$id};
$obj->{'key'} = $key;
$obj->{'fields'} = [@fields];
$obj->{'key'} = $key;
$obj->{'fields'} = [@fields];