view release on metacpan or  search on metacpan

scripts/inspect  view on Meta::CPAN

#!/usr/bin/env perl
use strict;
use warnings;

use List::Util qw/max/;
use Term::ANSIColor qw/color/;

my $normal = color('reset');
my $red    = color('bold red');
my $grn    = color('bold green');
my $blu    = color('blue');
my $ylw    = color('yellow');

run(@ARGV) unless $^C || caller;

sub run {
    my @args = @_;
    my $mod_length = 0;
    my $ver_length = 0;
    my @lines;

t/tests.t  view on Meta::CPAN

    return $out;
}

require 'scripts/inspect';

imported_ok('run');

use Term::ANSIColor qw/color/;

my $normal = color('reset');
my $red    = color('bold red');
my $grn    = color('bold green');
my $blu    = color('blue');
my $ylw    = color('yellow');

$INC{'Found/File1.pm'} = 'path/to/found/file1.pm';
$INC{'Found/File2.pm'} = 'path/to/found/file2.pm';

$Found::File1::VERSION = "2.123";

my $out = capture { run('Found::File1', 'Found::File2', 'Not::Found') };
is([split /\n+/, $out], [split /\n+/, <<"EOT"], "got expected output");