Yet Another CPAN Grep

Metabase-Backend-AWS ( D/DA/DAGOLDEN/Metabase-Backend-AWS-1.000.tar.gz, DAGOLDEN, 2012; MetaCPAN )

Metabase-Backend-AWS/lib/Metabase/Archive/S3.pm ( view source; MetaCPAN )

se Metabase::Fact;
use Carp       ();
use Data::GUID ();
use Data::Stream::Bulk::Filter 0.08;
use JSON 2 ();
use Net::Amazon::S3;
use Path::Class ();
use Compress::Zlib 2 qw(compress uncompress);

wit

n $client->$method( name => $self->bucket );
    }
);

has '_json' => (
  is => 'ro',
  required => 1,
  lazy => 1,
  default => sub { JSON->new->ascii },
);

sub initialize {}

# given fact, store it

 store: no GUID set for fact\n";
    }

    my $json = $self->_json->encode($fact_struct);

    if ( $self->compressed ) {
        $json = compress($json);
    }

    my $s3_object = $self->s3_bucket-