App-perlimports

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

         "recommends" : {
            "CPAN::Meta" : "2.120900"
         },
         "requires" : {
            "ExtUtils::MakeMaker" : "0",
            "File::Spec" : "0",
            "File::pushd" : "0",
            "Log::Dispatch::Array" : "0",
            "PPI::Dumper" : "0",
            "Sub::Exporter" : "0",
            "Test::Differences" : "0",
            "Test::Fatal" : "0",
            "Test::More" : "0",
            "Test::Needs" : "0",
            "Test::RequiresInternet" : "0",
            "Test::Script" : "1.29",
            "Test::Warnings" : "0",
            "lib" : "0",
            "perl" : "v5.18.0"
         }
      }

META.yml  view on Meta::CPAN

abstract: 'Make implicit imports explicit'
author:
  - 'Olaf Alders <olaf@wundercounter.com>'
build_requires:
  ExtUtils::MakeMaker: '0'
  File::Spec: '0'
  File::pushd: '0'
  Log::Dispatch::Array: '0'
  PPI::Dumper: '0'
  Sub::Exporter: '0'
  Test::Differences: '0'
  Test::Fatal: '0'
  Test::More: '0'
  Test::Needs: '0'
  Test::RequiresInternet: '0'
  Test::Script: '1.29'
  Test::Warnings: '0'
  lib: '0'
  perl: v5.18.0
configure_requires:
  ExtUtils::MakeMaker: '0'

Makefile.PL  view on Meta::CPAN

    "utf8" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "ExtUtils::MakeMaker" => 0,
    "File::Spec" => 0,
    "File::pushd" => 0,
    "Log::Dispatch::Array" => 0,
    "PPI::Dumper" => 0,
    "Sub::Exporter" => 0,
    "Test::Differences" => 0,
    "Test::Fatal" => 0,
    "Test::More" => 0,
    "Test::Needs" => 0,
    "Test::RequiresInternet" => 0,
    "Test::Script" => "1.29",
    "Test::Warnings" => 0,
    "lib" => 0
  },
  "VERSION" => "0.000060",
  "test" => {

Makefile.PL  view on Meta::CPAN

  "Perl::Tidy" => 20220613,
  "Pod::Usage" => 0,
  "Ref::Util" => 0,
  "Scalar::Util" => 0,
  "Sereal::Decoder" => 0,
  "Sereal::Encoder" => 0,
  "Sub::Exporter" => 0,
  "Sub::HandlesVia" => 0,
  "Symbol::Get" => "0.10",
  "TOML::Tiny" => "0.16",
  "Test::Differences" => 0,
  "Test::Fatal" => 0,
  "Test::More" => 0,
  "Test::Needs" => 0,
  "Test::RequiresInternet" => 0,
  "Test::Script" => "1.29",
  "Test::Warnings" => 0,
  "Text::Diff" => 0,
  "Text::SimpleTable::AutoWidth" => 0,
  "Try::Tiny" => 0,
  "Types::Common::Numeric" => 0,

cpanfile  view on Meta::CPAN

requires "utf8" => "0";
requires "warnings" => "0";

on 'test' => sub {
  requires "ExtUtils::MakeMaker" => "0";
  requires "File::Spec" => "0";
  requires "File::pushd" => "0";
  requires "Log::Dispatch::Array" => "0";
  requires "PPI::Dumper" => "0";
  requires "Sub::Exporter" => "0";
  requires "Test::Differences" => "0";
  requires "Test::Fatal" => "0";
  requires "Test::More" => "0";
  requires "Test::Needs" => "0";
  requires "Test::RequiresInternet" => "0";
  requires "Test::Script" => "1.29";
  requires "Test::Warnings" => "0";
  requires "lib" => "0";
  requires "perl" => "v5.18.0";
};

t/00-report-prereqs.dd  view on Meta::CPAN

                   'recommends' => {
                                     'CPAN::Meta' => '2.120900'
                                   },
                   'requires' => {
                                   'ExtUtils::MakeMaker' => '0',
                                   'File::Spec' => '0',
                                   'File::pushd' => '0',
                                   'Log::Dispatch::Array' => '0',
                                   'PPI::Dumper' => '0',
                                   'Sub::Exporter' => '0',
                                   'Test::Differences' => '0',
                                   'Test::Fatal' => '0',
                                   'Test::More' => '0',
                                   'Test::Needs' => '0',
                                   'Test::RequiresInternet' => '0',
                                   'Test::Script' => '1.29',
                                   'Test::Warnings' => '0',
                                   'lib' => '0',
                                   'perl' => 'v5.18.0'
                                 }
                 }

t/Config.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use App::perlimports::Config ();
use Path::Tiny               ();
use Test::Differences        qw( eq_or_diff );
use Test::Fatal              qw( exception );
use Test::More import => [qw( done_testing is like ok subtest )];
use TOML::Tiny qw( from_toml );

my $dir  = Path::Tiny->tempdir('testconfigXXXXXXXX');
my $file = $dir->child('perlimports.toml');

ok( App::perlimports::Config->create_config($file), 'create_config' );

{

t/ExportInspector/SubExporter.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib', 'test-data/lib';

use Test::Differences qw( eq_or_diff );
use Test::More import => [qw( done_testing is is_deeply ok subtest )];
use TestHelper  qw( inspector );
use Test::Needs qw(
    Import::Into
    MetaCPAN::Moose
    Moose
    MooseX::Types::Moose
    MooseX::Types::Path::Class
    Path::Class
);

t/Sandbox.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib', 'test-data/lib';

use App::perlimports::Sandbox ();
use TestHelper                qw( doc );
use Test::Differences         qw( eq_or_diff );
use Test::More import => [qw( cmp_ok done_testing ok subtest )];

my $pkg1 = App::perlimports::Sandbox::pkg_for('fakeblock');
my $pkg2 = App::perlimports::Sandbox::pkg_for('fakeblock');

ok( $pkg1, 'first pkg' );
ok( $pkg2, 'second pkg' );

cmp_ok( $pkg1, 'ne', $pkg2, 'names are not the same' );

t/carp.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing is_deeply subtest )];

subtest 'verbose' => sub {
    my ($doc) = doc( filename => 'test-data/carp.pl' );

    my $expected = <<'EOF';
use strict;
use warnings;

t/cast-in-regex.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing is_deeply )];
use Test::Needs qw( Lingua::EN::Inflect );

my ($doc) = doc(
    filename => 'test-data/cast-in-regex.pl', preserve_unused => 0,
);

is_deeply( $doc->interpolated_symbols, {}, 'vars' );

t/cli-args.t  view on Meta::CPAN

use strict;
use warnings;

use lib 'test-data/lib', 't/lib';

use App::perlimports::CLI ();
use Capture::Tiny         qw( capture );
use Path::Tiny            ();
use TestHelper            qw( logger );
use Test::Differences     qw( eq_or_diff );
use Test::More import => [qw( diag done_testing is like subtest )];
use Test::Needs qw( Perl::Critic::Utils );

subtest 'almost all of the args' => sub {
    my $expected = <<'EOF';
use strict;
use warnings;

use Perl::Critic::Utils qw($QUOTE);

t/cli.t  view on Meta::CPAN

use warnings;

use lib 'test-data/lib', 't/lib';

use App::perlimports::CLI ();
use Capture::Tiny         qw( capture );
use Cpanel::JSON::XS      qw( decode_json );
use File::pushd           qw( pushd );
use Path::Tiny            ();
use TestHelper            qw( logger );
use Test::Differences     qw( eq_or_diff );
use Test::Fatal           qw( exception );
use Test::More import => [qw( done_testing is like ok subtest )];
use Test::Needs qw( Perl::Critic::Utils );

subtest 'bad path to config file' => sub {
    local @ARGV = (
        '--config-file',
        'test-data/XXX',
        'test-data/a.pl',
    );

t/export-tags.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use TestHelper        qw( doc );
use Test::Differences qw( eq_or_diff );
use Test::More import => [qw( done_testing )];
use Test::Needs { 'HTTP::Status' => 6.28 };

my ($doc) = doc( filename => 'test-data/export-tags.pl' );

my $expected = <<'EOF';
use strict;
use warnings;

use HTTP::Status qw(

t/find-bin.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc source2pi );
use Test::More import => [qw( done_testing is is_deeply ok )];

my $e = source2pi(
    'test-data/find-bin.pl',
    'use FindBin qw( $Bin );',
);
is(
    $e->module_name(), 'FindBin',
    'module_name'

t/fully-qualified.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib', 'test-data/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( diag done_testing ok )];
use Test::Needs qw( HTTP::Tiny );

my ( $doc, $log ) = doc(
    filename        => 'test-data/fully-qualified.pl',
    preserve_unused => 0,
    tidy_whitespace => 0,
);

t/function-reference.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib', 'test-data/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( diag done_testing ok )];
use Test::Needs qw( Cpanel::JSON::XS );

my ( $doc, $log ) = doc(
    filename        => 'test-data/function-reference.pl',
    preserve_unused => 0,
);

ok(

t/interpolation.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing )];

my ($doc) = doc( filename => 'test-data/interpolation.pl' );

eq_or_diff(
    $doc->interpolated_symbols, { '$code' => 1, encode => 1 },
    'vars'
);

t/locally-defined-sub.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib', 'test-data/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing )];
use Test::Needs qw( Math::Round );

my ( $doc, $log ) = doc(
    filename => 'test-data/lib/Local/Round.pm', preserve_unused => 0,
);

my $expected = <<'END';
package Local::Round;

t/lookalike-words.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing is_deeply )];

my ($doc) = doc(
    filename => 'test-data/lookalike-words.pl', preserve_unused => 0,
);

is_deeply( $doc->interpolated_symbols, {}, 'vars' );

my $expected = <<'END';

t/memoize.t  view on Meta::CPAN

# "use MooseX::Types::UUID qw( UUID );", despite the fact that "UUID" is not an
# imported symbol in b.pl. This happens in the case where "a.pl" is process
# first and "is_function_call('UUID')" has already been memoized.
#
# We use "memoize" on "is_function_call" because it was identified as a hotspot
# in earlier profiling.

use lib 't/lib';

use Path::Tiny        qw( path );
use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing )];
use Test::Needs qw( MooseX::Types::UUID UUID );

{
    my ($doc) = doc( filename => 'test-data/a.pl' );
    $doc->tidied_document;
}

{

t/missing-semicolon-in-import.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( diag done_testing )];

my ( $doc, $log )
    = doc( filename => 'test-data/missing-semicolon-in-import.pl' );

my $expected = <<'EOF';
use strict;
use warnings;

t/nested-quotes.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing is_deeply )];

my ($doc) = doc( filename => 'test-data/nested-quotes.pl' );

is_deeply(
    $doc->interpolated_symbols, { path => 1, '$thing' => 1, },
    'vars'
);

t/perlimports.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use Path::Tiny        ();
use Test::Differences qw( eq_or_diff );
use Test::More import => [qw( done_testing subtest )];
use Test::Needs qw( Moose );
use Test::Script 1.27 qw(
    script_compiles
    script_fails
    script_runs
    script_stderr_is
    script_stderr_like
    script_stdout_like
);

t/preserve-some-padding.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing )];

my ($doc) = doc(
    filename        => 'test-data/preserve-some-padding.pl',
    tidy_whitespace => 1,
);

my $expected = <<'EOF';
use strict;

t/preserve-spaces.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing subtest )];
use Test::Needs qw( HTTP::Status );

subtest 'tidy_whitespace' => sub {
    my $expected = <<'EOF';
use strict;
use warnings;

use Carp    ();

t/qualified-bareword.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing is_deeply )];

my ($doc) = doc(
    filename => 'test-data/qualified-bareword.pl', preserve_unused => 0,
);

is_deeply( $doc->interpolated_symbols, {}, 'vars' );

my $expected = <<'END';

t/re-export-via-sub-exporter.t  view on Meta::CPAN

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc );
use Test::More import => [qw( done_testing )];

my ($doc) = doc(
    filename        => 'test-data/lib/Local/ReExportViaSubExporter.pm',
    preserve_unused => 0,
);

my $expected = <<'EOF';
package Local::ReExportViaSubExporter;

t/signatures.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use Test::Differences qw( eq_or_diff );
use Test::More import => [qw( done_testing )];
use Test::Needs { 'HTTP::Status' => 6.28, perl => 5.020 };

use lib 't/lib';
use TestHelper qw( doc );

my $expected = <<'EOF';
use strict;
use warnings;

t/skip-all.t  view on Meta::CPAN

#!/usr/bin/env perl

use strict;
use warnings;

use lib 't/lib';
use TestHelper        qw( source2pi );
use Test::Differences qw( eq_or_diff );
use Test::More import => [qw( done_testing ok )];

my $e = source2pi(
    'test-data/skip-all.t',
    q{use Test::More 0.93 skip_all => 'Test is broken', tests => 3, foo => ['bar'] ;},
);

ok( !$e->_is_ignored, 'not an ignored module' );
my $expected = <<'EOF';
use Test::More 0.93 import => [qw( is is_deeply ok )],

t/socket.t  view on Meta::CPAN

#!perl

use strict;
use warnings;

use lib 't/lib';

use Test::Differences qw( eq_or_diff );
use TestHelper        qw( doc logger );
use Test::More import => [qw( done_testing is ok subtest )];

subtest tidy => sub {
    my ($doc) = doc(
        filename => 'test-data/socket.pl',
    );

    my $expected = <<'EOF';
use strict;