Merge pull request #6 from perlDreamer/master

Fixes for issue #5, and object serialization within Ouch

Changes

@@ -1,5 +1,9 @@
 Revision history for Perl module AWS::SNS::Verify
 
+0.0104 2019-05-01
+ * Fix issue #5
+ * Provide a way to serialize myself for Ouch messages
+
 0.0104 2019-01-21
  * Remove deps to Crypt::OpenSSL::RSA and Crypt::OpenSSL::X509 (Takumi Akiyama)
 

dist.ini

@@ -4,7 +4,7 @@ license = Perl_5
 copyright_holder = Plain Black Coproration
 copyright_year   = 2015
 
-version = 0.0104
+version = 0.0105
 
 [@Classic]
 
@@ -24,3 +24,4 @@ Moo             = 0
 Ouch            = 0
 CryptX          = 0
 URI::URL        = 0
+Data::Structure::Util = 0

lib/AWS/SNS/Verify.pm

@@ -9,6 +9,7 @@ use Moo;
 use Ouch;
 use Crypt::PK::RSA;
 use URI::URL;
+use Data::Structure::Util;
 
 has body => (
     is          => 'ro',
@@ -89,7 +90,7 @@ sub verify {
     my $self = shift;
     my $pk = $self->certificate;
     unless ($pk->verify_message($self->decode_signature, $self->generate_signature_string, 'SHA1', 'v1.5')) {
-        ouch 'Bad SNS Signature', 'Could not verify the SES message from its signature.', $self;
+        ouch 'Bad SNS Signature', 'Could not verify the SNS message from its signature.', $self;
     }
     return 1;
 }
@@ -122,6 +123,10 @@ sub valid_cert_url {
     return $url_string;
 }
 
+sub TO_JSON {
+    my $self = shift;
+    return unbless($self);
+}
 
 =head1 NAME
 

t/01_verify.t

@@ -98,8 +98,8 @@ END
 my $tampered_body_sns = AWS::SNS::Verify->new(body => $tampered_body, certificate_string => $cert_string);
 throws_ok(
     sub { $tampered_body_sns->verify },
-    qr/Could not verify the SES message/,
-    "Tampered with body doesn't valiate",
+    qr/Could not verify the SNS message/,
+    "Tampered with body doesn't validate",
 );