CPAN::Groonga

ier';
use utf8;

use Web::MarketReceipt;
use Carp;
use Crypt::OpenSSL::RSA;
use MIME::Base64;
use JSON::XS;

subtype 'Crypt::OpenSSL::RSA' => as 'Object' => where { $_->isa('Crypt::OpenSSL::RSA') };
c

 my $raw_json = decode_json $signed_data;

    Web::MarketReceipt->new(
        is_success => $verification_result ? 1 : 0,
        store      => 'GooglePlay',
        raw        => $raw_json,
       

ists $raw_json->{orders} ? (
                orders => [ map { $self->_order2hash($_) } @{ $raw_json->{orders} } ],
            ) : (
                orders => [ $self->_order2hash($raw_json) ],
     

::MarketReceipt::Verifier';
use utf8;
use Carp;

no Mouse;

use Web::MarketReceipt;
use Furl;
use JSON::XS;
use Try::Tiny;
use MIME::Base64;

sub verify {
    my ($self, %args) = @_;

    my $environm

receipts/
    my $res_json = $self->_send_request(
        environment => $environment,
        hash        => $hash,
        opts        => $args{opts},
    );

    if ($res_json->{status} == 21007) 

 'Sandbox';
        $res_json = $self->_send_request(
            environment => $environment,
            hash        => $hash,
        );
    }

    my $raw_json = $res_json->{receipt};
    Web::Mar