view release on metacpan or  search on metacpan

lib/Business/CPI/Gateway/PayPal/IPN.pm  view on Meta::CPAN

use Moo;
use LWP::UserAgent ();

our $VERSION = '0.905'; # VERSION

has is_valid => (
    is      => 'lazy',
    default => sub {
        my $self = shift;

        for ($self->response->decoded_content) {
            return 0 if /^INVALID$/;
            return 1 if /^VERIFIED$/;

            die "Vague response: " . $_;
        }
    }
);

has vars => (
    is      => 'lazy',