view release on metacpan or  search on metacpan

lib/API/BigBlueButton/Response.pm  view on Meta::CPAN

31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
$res
 
    HTTP::Response object.
 
=cut
 
sub new {
    my ( $class, $res ) = @_;
 
    my $success   = $res->is_success;
    my $xml       = $success ? $res->decoded_content : '';
    my $error     = $success ? '' : $res->decoded_content;
    my $status    = $res->status_line;
 
    my $parsed_response = $xml ? xml2hash( $xml, attr => '' ) : {};
 
    return bless(
        {
            success  => $success,
            xml      => $xml,
            error    => $error,
            response => $parsed_response->{response} ? $parsed_response->{response} : $parsed_response,