CPAN::Groonga

			}
		}
	}

	if ($clean) {
		unlink "output.json";
	}

	if (-e "output.json") {
		open my $output, "<", "output.json" || die ("Can't open file output.json. $!");
		my $data = <$output>;
		print STDOU

o.martins@caixamagica.pt>

package PMInfoExtr::Report;

use strict;
use warnings;

use Moose;
use JSON;
use UUID::Tiny ':std';
use PMInfoExtr::Version;

our $VERSION = $PMInfoExtr::Version::VERSION;

	$self->print_array_to_json($data);
	return;
}

sub print_array_to_json {
	my $self = shift;
	my $data = shift;
	my $json = JSON->new->utf8;

	$json->convert_blessed(1);
	$json->allow_blessed(1);

	m

ing(create_uuid()),
		format => {
			id => "d7f5e025-9daa-11e3-ab53-e3e54faab75e",
			multiple => JSON::false,
		},
	);

	if (defined $PMInfoExtr::Manager::options{'output_file'}) {
		unlink $PMInfoEx

r::Version::VERSION;

our %options = (
	'debug' => 0,
	'folders' => [],
	'output_file' => 'output.json',
);

use Data::Dumper;

has 'search' => (is => 'rw', isa => 'PMInfoExtr::Search');

has 'dpkg' =