|
our $VERSION = "1.071" ;
with ( 'Catmandu::AlephX::Response' );
has z66 => (
is => 'ro' ,
isa => sub {
check_hash_ref( $_ [0]);
}
);
has reply => (
is => 'ro'
);
sub op { 'user-auth' }
sub parse {
my ( $class , $str_ref ) = @_ ;
my $xpath = xpath( $str_ref );
my $op = op();
my ( $z66 ) = $xpath ->find( '/z66' )->get_nodelist();
$z66 = get_children( $z66 ,1);
__PACKAGE__->new(
session_id => $xpath ->findvalue( '/' . $op . '/session-id' ),
errors => $class ->parse_errors( $xpath ),
reply => $xpath ->findvalue( '/' . $op . '/reply' ),
z66 => $z66 ,
content_ref => $str_ref
);
}
1;
|