Yet Another CPAN Grep

Business-Giropay ( S/SY/SYSPETE/Business-Giropay-0.103.tar.gz, SYSPETE, 2016; MetaCPAN )

Business-Giropay/lib/Business/Giropay/Role/Request.pm ( view source; MetaCPAN )

>new(
        network => $self->network,
        hash    => $response->{headers}->{hash},
        json    => $response->{content},
        secret  => $self->secret,
    );
}

=head2 sandbox_data

Indi

Business-Giropay ( S/SY/SYSPETE/Business-Giropay-0.103.tar.gz, SYSPETE, 2016; MetaCPAN )

Business-Giropay/lib/Business/Giropay/Role/Response.pm ( view source; MetaCPAN )

be Str/;
use JSON::MaybeXS;
use Moo::Role;
with 'Business::Giropay::Role::Network';

=head1 ATTRIBUTES

=head2 json

The json message data returned from giropay. Required.

=cut

has json => (
    is


L</json> data converted to a hash reference.

=cut

has data => (
    is       => 'lazy',
    isa      => HashRef,
    init_arg => undef,
);

sub _build_data {
    return decode_json( shift->json );

= hmac_md5_hex( $self->json, $self->secret );

    croak(
        "Returned HMAC hash ", $self->hash,
        " does not match expected hash ", $verify, " for json ", $self->json
    ) unless $verify