CPAN::Groonga

ould be configurable

use strict;
use warnings;

use Carp;
use HTTP::Tiny;
use Log::Log4perl;
use JSON::MaybeXS;
use Scalar::Util;

=head1 NAME

CPAN::UnsupportedFinder - Identify unsupported or poorl

t.

=item C<json>

Generates a JSON report.

=back

=back

=cut

sub output_results {
	my ($self, $results, $format) = @_;
	$format ||= 'text'; # Default to plain text

	if($format eq 'json') {
		retu

ccess}) {
		$self->{logger}->debug("Data fetched successfully from $url");
		return eval { decode_json($response->{content}) };
	}
	$self->{logger}->debug("Status = $response->{status}");
	if(($respon