Fixed syntactic errors in Onis::Plugins::Core, Onis::Data::Persistent::None, Onis...

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

diff --git a/lib/Onis/Data/Persistent.pm b/lib/Onis/Data/Persistent.pm
index 3036e16..8c08f28 100644 (file)
--- a/lib/Onis/Data/Persistent.pm
+++ b/lib/Onis/Data/Persistent.pm
@@ -56,13 +56,14 @@ if (get_config ('storage_module'))
        if ($@)
        {
                print STDERR $/, __FILE__, ": Could not load storage module ``$StoreModule''. Are you sure it exists?";
+               print STDERR $/, __FILE__, ": Error while loading was: $@";
                exit (1);
        }
 
        unshift (@Onis::Data::Persistent::ISA, $mod_name);
 }
 
-return (0);
+return (1);
 
 =head1 INTERFACE
 
@@ -80,6 +81,11 @@ world - a table. The name must be unique for each calling method's namespace.
 
 Since this is a constructor it returns an object. The object "knows" the folling methods:
 
+=item B<$data-E<gt>get> (I<$key>) 
+
+Returns the data associated with the given I<$key> pair or an empty list if no
+data has been stored under this tupel before..
+
 =item B<$data-E<gt>put> (I<$key>, I<@fields>)
 
 Stores the given values in the data structure. How this is done is described
@@ -87,11 +93,6 @@ below in L<another paragraph>. Doesn't return anything. The number of entries
 in I<@fields> has to match the number of entries in I<@field_names> when
 creating the object using B<new>.
 
-=item B<$data-E<gt>get> (I<$key>) 
-
-Returns the data associated with the given I<$key> pair or an empty list if no
-data has been stored under this tupel before..
-
 =item B<$data-E<gt>keys> ([I<$field>, ...])
 
 Returns a list of all the keys defined for this object. If one field is given