rage::JSON;
use boolean;
use namespace::autoclean;
use File::DataClass::Functions qw( extension_map throw );
use File::DataClass::Types qw( Object );
use JSON::MaybeXS qw( JSON );
u
ap 'JSON' => '.json';
# Private functions
my $_build_transcoder = sub {
my $options = shift; my $json = JSON->new;
for (grep { $_ ne 'reboolify' } keys %{ $options }) {
$json = $json->$_
( $options->{ $_ } );
}
return $json;
};
my $_reboolify; $_reboolify = sub {
my $in = shift; my $ref = ref $in;
if (not $ref) { return $in }
elsif ($ref eq 'HASH') {
return {
ma->new( storage_class => q(Any) );
my $loaded = $schema->load( 'data_file1.xml', 'data_file2.json' );
=head1 Description
Selects storage class using the extension on the path
=head1 Configurat
;
has 'storage_class' => is => 'rw', isa => Str,
default => 'JSON', lazy => TRUE;
has 'tempdir' => is => 'ro', isa => Directory,
coerce
ibutes
Creates a new instance of the storage class which defaults to
L<File::DataClass::Storage::JSON>
Defines these attributes
=over 3
=item C<cache>
Instantiates and returns the L<Cache|File::D