App-pmodinfo

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

   "name" : "App-pmodinfo",
   "prereqs" : {
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.30"
         }
      },
      "runtime" : {
         "requires" : {
            "Config" : 0,
            "DateTime" : 0,
            "ExtUtils::Installed" : 0,
            "File::Which" : 0,
            "File::stat" : 0,
            "FindBin" : 0,
            "Getopt::Long" : 0,
            "LWP::Simple" : 0,
            "Module::CoreList" : 0,
            "Module::Metadata" : 0,
            "Parse::CPAN::Meta" : 0
         }

META.yml  view on Meta::CPAN

  ExtUtils::MakeMaker: 6.30
dynamic_config: 0
generated_by: 'Dist::Zilla version 4.200007, CPAN::Meta::Converter version 2.110440'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-pmodinfo
requires:
  Config: 0
  DateTime: 0
  ExtUtils::Installed: 0
  File::Which: 0
  File::stat: 0
  FindBin: 0
  Getopt::Long: 0
  LWP::Simple: 0
  Module::CoreList: 0
  Module::Metadata: 0
  Parse::CPAN::Meta: 0
resources:

Makefile.PL  view on Meta::CPAN

  },
  'DISTNAME' => 'App-pmodinfo',
  'EXE_FILES' => [
    'bin/pmodinfo',
    'bin/pmodinfo'
  ],
  'LICENSE' => 'perl',
  'NAME' => 'App::pmodinfo',
  'PREREQ_PM' => {
    'Config' => '0',
    'DateTime' => '0',
    'ExtUtils::Installed' => '0',
    'File::Which' => '0',
    'File::stat' => '0',
    'FindBin' => '0',
    'Getopt::Long' => '0',
    'LWP::Simple' => '0',
    'Module::CoreList' => '0',
    'Module::Metadata' => '0',
    'Parse::CPAN::Meta' => '0'
  },

lib/App/pmodinfo.pm  view on Meta::CPAN

package App::pmodinfo;

use strict;
use warnings;
use Getopt::Long ();
use File::stat;
use DateTime;
use Config;
use Parse::CPAN::Meta;
use LWP::Simple;
use ExtUtils::Installed;
use File::Which qw(which);

our $VERSION = '0.10'; # VERSION

sub new {
    my $class = shift;

lib/App/pmodinfo.pm  view on Meta::CPAN

sub print_block {
    my $self = shift;
    my ( $description, $data, @check ) = @_;
    map { print "  $description: $data\n" if $_ } @check;
}

sub format_date {
    my ( $self, $epoch ) = @_;
    return '' unless $epoch;
    my $dt = DateTime->from_epoch( epoch => $epoch );
    return join( ' ', $dt->ymd, $dt->hms );
}

sub run {
    my $self = shift;

    $self->show_help unless @{ $self->{argv} };

    $self->ns_argv;

t/000-report-versions-tiny.t  view on Meta::CPAN

        } else {
            $pmver = '<undef>';
        }
    }

    # So, we should be good, right?
    return sprintf('%-45s => %-10s%-15s%s', $module, $pmver, $wanted, "\n");
}

eval { $v .= pmver('Config','any version') };
eval { $v .= pmver('DateTime','any version') };
eval { $v .= pmver('ExtUtils::Installed','any version') };
eval { $v .= pmver('ExtUtils::MakeMaker','6.30') };
eval { $v .= pmver('File::Find','any version') };
eval { $v .= pmver('File::Temp','any version') };
eval { $v .= pmver('File::Which','any version') };
eval { $v .= pmver('File::stat','any version') };
eval { $v .= pmver('FindBin','any version') };
eval { $v .= pmver('Getopt::Long','any version') };
eval { $v .= pmver('LWP::Simple','any version') };
eval { $v .= pmver('Module::CoreList','any version') };