NAME

Scalar::Accessors::LikeHash - access a JSON/Sereal/etc scalar string in a hash-like manner

SYNOPSIS

{
   package Acme::Storable::Accessors;
   
   use Storable qw/ freeze thaw /;
   
   use Role::Tiny::With;
   with 'Scalar::Accessors::LikeHash';
   
   sub _to_hash {
      my ($ref) = @_;
      thaw($$ref);
   }
   
   sub _from_hash {
      my ($ref, $hash) = @_;
      $$ref = freeze($hash);
   }
}

my $string = File::Slurp::slurp("some-data.storable");
my $object = Acme::Storable::Accessors->new(\$string);

$object->store(some_key => 42) unless $object->exists('some_key');
$object->fetch('some_key');
$object->delete('some_key');

DESCRIPTION

The idea of this is to treat a reference to a string as if it were a hash. You can store key-values pairs; fetch values using keys; delete keys; etc. This is slow and quite silly.

This module is a role. Concrete implementations of the role need to provide _from_hash and _to_hash methods to serialize and deserialize a hashref to/from a scalarref.

This role provides the following methods:

new(\$scalar)

Yes, this role provides a constructor. Consumers can overide it.

fetch($key)

store($key, $value)

exists($key)

delete($key)

clear()

Delete for each key.

keys()

values()

These can be called as methods on a blessed scalar reference:

my $string = "{}";
bless \$string, "Scalar::Accessors::LikeHash::JSON";
$string->store(foo => 42);

Or as class methods passing the scalar reference as an extra first argument:

my $string = "{}";
Scalar::Accessors::LikeHash::JSON->store(\$string, foo => 42);

BUGS

Please report any bugs to http://rt.cpan.org/Dist/Display.html?Queue=Scalar-Accessors-LikeHash.

SEE ALSO

For a more usable interface, see Tie::Hash::SerializedString.

For concrete implementations, see Scalar::Accessors::LikeHash::JSON and Scalar::Accessors::LikeHash::Sereal.

For an insane usage of this concept, see Acme::MooseX::JSON.

AUTHOR

Toby Inkster <tobyink@cpan.org>.

COPYRIGHT AND LICENCE

This software is copyright (c) 2013 by Toby Inkster.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

DISCLAIMER OF WARRANTIES

THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.