Amazon-DynamoDB-Simple

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

            "Test::PAUSE::Permissions" : "0.04",
            "Test::Pod" : "1.41",
            "Test::Spellunker" : "v0.2.7"
         }
      },
      "runtime" : {
         "requires" : {
            "Amazon::DynamoDB" : "0",
            "Carp" : "0",
            "DDP" : "0",
            "JSON::XS" : "0",
            "Moo" : "0",
            "Try::Tiny" : "0",
            "perl" : "5.008001"
         }
      },
      "test" : {
         "requires" : {
            "Test::Most" : "0"
         }
      }

META.yml  view on Meta::CPAN

    - author
    - builder
provides:
  Amazon::DynamoDB::Simple:
    file: lib/Amazon/DynamoDB/Simple.pm
    version: '0.01'
requires:
  Amazon::DynamoDB: '0'
  Carp: '0'
  DDP: '0'
  JSON::XS: '0'
  Moo: '0'
  Try::Tiny: '0'
  perl: '5.008001'
resources:
  bugtracker: https://github.com/kablamo/Amazon-DynamoDB-Simple/issues
  homepage: https://github.com/kablamo/Amazon-DynamoDB-Simple
  repository: git://github.com/kablamo/Amazon-DynamoDB-Simple.git
version: '0.01'
x_authority: cpan:KABLAMO

cpanfile  view on Meta::CPAN

requires 'perl', '5.008001';
requires 'Amazon::DynamoDB';
requires 'Carp';
requires 'DDP';
requires 'JSON::XS';
requires 'Moo';
requires 'Try::Tiny';

on 'test' => sub {
    requires 'Test::Most';
};

cpanfile.snapshot  view on Meta::CPAN

    provides:
      JSON::PP 2.27203
      JSON::PP::Boolean 2.27203
      JSON::PP::IncrParser 2.27203
    requirements:
      ExtUtils::MakeMaker 0
      Test::More 0
  JSON-XS-3.01
    pathname: M/ML/MLEHMANN/JSON-XS-3.01.tar.gz
    provides:
      JSON::XS 3.01
    requirements:
      ExtUtils::MakeMaker 0
      Types::Serialiser 0
      common::sense 0
  Kavorka-0.036
    pathname: T/TO/TOBYINK/Kavorka-0.036.tar.gz
    provides:
      Kavorka 0.036
      Kavorka::MethodModifier 0.036
      Kavorka::Multi 0.036

lib/Amazon/DynamoDB/Simple.pm  view on Meta::CPAN

package Amazon::DynamoDB::Simple;
use Amazon::DynamoDB;
use Carp qw/cluck confess carp croak/;
use DDP;
use JSON::XS;
use Moo;
use Try::Tiny;

our $VERSION="0.01";

=head1 NAME

Amazon::DynamoDB::Simple - Simple to use and highly available

=head1 SYNOPSIS

lib/Amazon/DynamoDB/Simple.pm  view on Meta::CPAN

}

# Amazon::DynamoDB can't handle anything other than simple scalars
sub inflate {
    my ($self, %item) = @_;
    my %new;

    for my $key (keys %item) {
        my $value   = $item{$key};
        $new{$key} = $self->is_valid_json($value)
            ? JSON::XS->new->utf8->pretty->decode($value)
            : $value;
    }

    return %new;
}

# Amazon::DynamoDB can't handle anything other than simple scalars
sub deflate {
    my ($self, %item) = @_;
    my %new;

    for my $key (keys %item) {
        my $value  = $item{$key};
        $new{$key} = ref $value
            ? JSON::XS->new->utf8->pretty->encode($value)
            : $item{$key};
    }

    return %new;
}

sub is_valid_json {
    my ($self, $json) = @_;
    eval { JSON::XS->new->utf8->pretty->decode($json) };
    return 0 if $@;
    return 1;
}

sub permanent_delete {
    my ($self, $key) = @_;

    my $dynamodbs = $self->dynamodbs();
    my $success   = 0;