Refactor the decrypt function

This allows for the decryption of the Dutch eHerkenning SAML implementation.
The logic is as follows:

Find all the EncryptedKey nodes in the XML and loop over these nodes. Because
the encrypted data belongs to the same grandparent
(keyNode->parentNode->parentNode) we can get the encrypted node and decrypt it
based on the key. That is if it is signed against our key.

A similar approach is taken for nodes which have a RetrievalMethod element.

Signed-off-by: Wesley Schwengle <waterkip@cpan.org>

Author: waterkip

Makefile.PL

@@ -24,6 +24,7 @@ my %WriteMakefileArgs = (
     "Crypt::PRNG" => 0,
     "MIME::Base64" => 0,
     "XML::LibXML" => 0,
+    "feature" => 0,
     "strict" => 0,
     "vars" => 0,
     "warnings" => 0
@@ -38,7 +39,7 @@ my %WriteMakefileArgs = (
     "Test::More" => 0,
     "namespace::autoclean" => 0
   },
-  "VERSION" => "0.11",
+  "VERSION" => "0.12",
   "test" => {
     "TESTS" => "t/*.t"
   }
@@ -61,6 +62,7 @@ my %FallbackPrereqs = (
   "Test::Lib" => 0,
   "Test::More" => 0,
   "XML::LibXML" => 0,
+  "feature" => 0,
   "namespace::autoclean" => 0,
   "strict" => 0,
   "vars" => 0,

README

@@ -2,7 +2,7 @@ NAME
     XML::Enc - XML::Enc Encryption Support
 
 VERSION
-    version 0.11
+    version 0.12
 
 SYNOPSIS
         my $decrypter = XML::Enc->new(

cpanfile

@@ -8,6 +8,7 @@ requires "Crypt::PK::RSA" => "0";
 requires "Crypt::PRNG" => "0";
 requires "MIME::Base64" => "0";
 requires "XML::LibXML" => "0";
+requires "feature" => "0";
 requires "perl" => "5.008";
 requires "strict" => "0";
 requires "vars" => "0";