Yet Another CPAN Grep

Log-Dispatch-HipChat ( R/RC/RCL/Log-Dispatch-HipChat-0.0007.tar.gz, RCL, 2015; MetaCPAN )

Log-Dispatch-HipChat/lib/Log/Dispatch/HipChat.pm ( view source; MetaCPAN )

SION = '0.0007';

use WebService::HipChat;
use Log::Dispatch::Output;
use Try::Tiny;
use JSON::XS qw/decode_json/;
 
use base qw( Log::Dispatch::Output );

use Params::Validate qw(validate SCALAR BOOL

            my $response = HTTP::Response->parse( $http_response );
            my $data = decode_json( $response->decoded_content );
            if( $data->{error}{message} ){
                die( sp