view release on metacpan or  search on metacpan

lib/Module/ScanDeps/FindRequires.pm  view on Meta::CPAN

    $self->update_requires($requires);
  }
  else {
    print {$fh} JSON->new->pretty->encode($requires);
  }

  return 0;
}

########################################################################
sub update_requires {
########################################################################
  my ( $self, $requires ) = @_;

  my ( $fh, $tempfile ) = tempfile('requiresXXXXX');

  eval {
    print {$fh} JSON->new->pretty->encode($requires);
    close $fh;

    my $requires_file = $self->get_requires;