CPAN::Groonga

Carp;
use Data::Dumper;
use English qw( -no_match_vars );
use ExtUtils::MM;
use Getopt::Long;
use JSON;
use Module::CoreList;
use Pod::Usage;
use Pod::Find qw( pod_where );
use Readonly;
use IO::Scala

w( Class::Accessor::Fast );

our @OPTIONS = qw(
  add_version
  core
  handle
  include_require
  json
  min_core_version
  path
  perlreq
  raw
  require
  separator
  text
);

__PACKAGE__->follow_be

 to
    # test modules against Perls that are older than 5.8.9 - however,
    # some modules like JSON::PP did not appear until after 5.10

    if ($removed_version) {
      $core = $removed_version >

 File::Temp qw(tempfile);
use File::Basename qw(fileparse);
use List::Util qw(any none uniq);
use JSON;
use Module::ScanDeps::Static;
use Scalar::Util qw(reftype);
use Progress::Any '$progress';
use P

 $min_perl_version,
      }
    );

    $scanner->parse;

    my @dependencies = $scanner->format_json;
    $requires_by_file{$f} = \@dependencies;

    push @all_dependencies, @dependencies;
  }

  i

f $format !~ /(?:json|text)/xsm;

  my %modules = map { $_->{name} => $_->{version} } @{$obj};

  my $fh = $self->get_output_handle;

  if ( $format eq 'json' ) {
    print {$fh} JSON->new->pretty->en