view release on metacpan or  search on metacpan

t/noopentickets.t  view on Meta::CPAN

			skip('JSON::MaybeXS required to check for open tickets', 1);
		} else {
			eval 'use IO::Socket::INET';
			if($@) {
				diag('IO::Socket::INET required to check for open tickets');
				skip('IO::Socket::INET required to check for open tickets', 1);
			} else {
				my $s = IO::Socket::INET->new(
					PeerAddr => SITE,
					PeerPort => 'http(80)',
					Timeout => 5
				);
				if($s) {
					eval 'use LWP::Simple';

					if($@) {
						diag('LWP::Simple required to check for open tickets');
						skip('LWP::Simple required to check for open tickets', 1);
					} elsif(my $data = LWP::Simple::get(URL)) {
						my $json = JSON::MaybeXS->new()->utf8();
						my @issues = @{$json->decode($data)};