File Coverage

blib/lib/POE/Component/Client/Bayeux/Utilities.pm

Criterion	Covered	Total	%
statement	12	22	54.5
branch	0	4	0.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	16	32	50.0

package POE::Component::Client::Bayeux::Utilities;

use strict;
use warnings;
use JSON::Any;
use base qw(Exporter);

our @EXPORT_OK = qw(decode_json_response);

my $json_any = JSON::Any->new();

sub decode_json_response {
    my ($response) = @_;

    my $content = $response->content;
    if ($response->content_type eq 'text/json-comment-filtered') {
        $content =~ s{^\s* /\* \s* (.+?) \s* \*/ \s*$}{$1}x;
    }

    my $object;
    eval {
        $object = $json_any->decode($content);
    };
    if ($@) {
        die "Failed to JSON decode data (error $@).  Content:\n" . $content;
    }

    return $object;
}

1;