Add response_status to Assertion object

Author: timlegge

lib/Net/SAML2/Protocol/Assertion.pm

@@ -21,14 +21,15 @@ Net::SAML2::Protocol::Assertion - SAML2 assertion object
 
 =cut
 
-has 'attributes' => (isa => 'HashRef[ArrayRef]', is => 'ro', required => 1);
-has 'session'    => (isa => 'Str',               is => 'ro', required => 1);
-has 'nameid'     => (isa => 'Str',               is => 'ro', required => 1);
-has 'not_before' => (isa => DateTime,          is => 'ro', required => 1);
-has 'not_after'  => (isa => DateTime,          is => 'ro', required => 1);
-has 'audience'   => (isa => NonEmptySimpleStr, is => 'ro', required => 1);
-has 'xpath'      => (isa => 'XML::XPath', is => 'ro', required => 1);
-has 'in_response_to' => (isa => 'Str',           is => 'ro', required => 1);
+has 'attributes'        => (isa => 'HashRef[ArrayRef]', is => 'ro', required => 1);
+has 'session'           => (isa => 'Str',               is => 'ro', required => 1);
+has 'nameid'            => (isa => 'Str',               is => 'ro', required => 1);
+has 'not_before'        => (isa => DateTime,            is => 'ro', required => 1);
+has 'not_after'         => (isa => DateTime,            is => 'ro', required => 1);
+has 'audience'          => (isa => NonEmptySimpleStr,   is => 'ro', required => 1);
+has 'xpath'             => (isa => 'XML::XPath',        is => 'ro', required => 1);
+has 'in_response_to'    => (isa => 'Str',               is => 'ro', required => 1);
+has 'response_status'   => (isa => 'Str',               is => 'ro', required => 1);
 
 =head1 METHODS
 
@@ -98,6 +99,7 @@ sub new_from_xml {
         not_after      => $not_after,
         xpath          => $xpath,
         in_response_to => $xpath->findvalue('//saml:Subject/saml:SubjectConfirmation/saml:SubjectConfirmationData/@InResponseTo')->value,
+        response_status => $xpath->findvalue('//saml2p:Response/saml2p:Status/saml2p:StatusCode/@Value')->value,
     );
 
     return $self;