use Catmandu::Util qw(:check :is);
use Moo;
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;