diff options
author | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-11 18:06:30 +0200 |
---|---|---|
committer | Daniel Friesel <derf@derf.homelinux.org> | 2009-07-11 18:06:30 +0200 |
commit | c9f8a8aa21c2804701d678afe5d05512df789617 (patch) | |
tree | c7219c756d588d5a51967bf821e929a82f0b089d | |
parent | ecca64326f6b745787e2edd9951cc95263aa42f6 (diff) |
Don't export any functions by default
-rw-r--r-- | lib/Simplestore.pm | 14 | ||||
-rw-r--r-- | t/simplestore.t | 8 |
2 files changed, 13 insertions, 9 deletions
diff --git a/lib/Simplestore.pm b/lib/Simplestore.pm index af5aaf0..11d8058 100644 --- a/lib/Simplestore.pm +++ b/lib/Simplestore.pm @@ -9,7 +9,7 @@ use Carp; our (@ISA, @EXPORT, $VERSION); require Exporter; @ISA = ('Exporter'); -@EXPORT = ('load', 'save'); +@EXPORT = (); $VERSION = '1.0'; sub load { @@ -60,12 +60,12 @@ Simplestore - simple storage format for hash refs # somefile contains: # word purrl # foo eggs - my $hash = load('somefile'); + my $hash = Simplestore::load('somefile'); say $hash->{word}; # purrl $hash->{foo} = 'bar'; $hash->{sentence} = "Mind the\nnewnile.; - save('somefile', $hash); + Simplestore::save('somefile', $hash); # somefile contains: # word purrl @@ -83,9 +83,13 @@ References or any other complex stuff is not supported. =head1 FUNCTIONS +Note: The function names are quite generic, so by default they are not +exported. Use C<< use Simplestore qw/load save/ >> if you want to use them +directly. + =over -=item B<load>(I<storefile>[, I<hashref>]) +=item B<Simplestore::load>(I<storefile>[, I<hashref>]) Load the hash saved in I<storefile>. Returns a hash ref containing the hash saved in I<storefile>. @@ -93,7 +97,7 @@ saved in I<storefile>. If I<hashref> is specified, I<storefile> will not be loaded into an empty hash, but into I<hashref>. However, keys in I<storefile> overwrite those in I<hashref>. -=item B<save>(I<storefile>, I<hashref>) +=item B<Simplestore::save>(I<storefile>, I<hashref>) save I<hashref> in I<storefile>. Returns nothing. diff --git a/t/simplestore.t b/t/simplestore.t index 3c35f83..b6c30a3 100644 --- a/t/simplestore.t +++ b/t/simplestore.t @@ -13,18 +13,18 @@ BEGIN {use_ok('Simplestore')} require_ok('Simplestore'); $hash = {foo => "bar\nbar"}; -ok(save($testfile, $hash), 'save hash 1'); +ok(Simplestore::save($testfile, $hash), 'save hash 1'); undef $hash; -ok($hash = load($testfile), 'load hash 1'); +ok($hash = Simplestore::load($testfile), 'load hash 1'); is($hash->{foo}, "bar\nbar", 'successful storage & load'); $hash = {dude => "dudette\nfoo"}; -$hash = load($testfile, $hash); +$hash = Simplestore::load($testfile, $hash); is($hash->{dude}, "dudette\nfoo", 'load: preserve hash keys'); $hash = {foo => "moose\nbaz"}; -$hash = load($testfile, $hash); +$hash = Simplestore::load($testfile, $hash); is($hash->{foo}, "bar\nbar", 'load: overwrite conflicting hash keys'); unlink($testfile); |