Beta Shell v2.0

File Manager

Name	Size	Perms	Modified	Actions
[ .. / .. ]
API.pm	9.62 KB	-rw-r--r--	2018-02-17 03:00:56	Edit Del
Assert.pm	25.55 KB	-rw-r--r--	2020-11-10 20:18:58	Edit Del
Assertions	-	drwxr-xr-x	2022-02-23 11:31:01	Del
Assertions.pm	16.06 KB	-rw-r--r--	2006-08-10 16:36:52	Edit Del
Base	-	drwxr-xr-x	2022-02-23 11:31:09	Del
Base.pm	17.89 KB	-rw-r--r--	2018-04-19 15:54:27	Edit Del
Base.pod	20.63 KB	-rw-r--r--	2018-04-19 15:54:27	Edit Del
Builder	-	drwxr-xr-x	2022-02-23 11:15:19	Del
Builder.pm	62.2 KB	-rw-r--r--	2018-03-30 05:53:02	Edit Del
CPAN	-	drwxr-xr-x	2022-02-23 11:31:21	Del
CheckChanges.pm	7.78 KB	-rw-r--r--	2019-09-30 20:05:49	Edit Del
CheckDeps.pm	3.74 KB	-rw-r--r--	2013-10-09 16:10:57	Edit Del
CheckManifest.pm	11.75 KB	-rw-r--r--	2019-02-22 16:43:11	Edit Del
Class	-	drwxr-xr-x	2022-02-23 11:31:17	Del
Class.pm	62.1 KB	-rw-r--r--	2015-06-06 23:04:18	Edit Del
CleanNamespaces.pm	8.16 KB	-rw-r--r--	2018-12-09 20:20:06	Edit Del
Compile	-	drwxr-xr-x	2022-02-23 11:31:14	Del
Compile.pm	9.88 KB	-rw-r--r--	2019-07-11 09:37:59	Edit Del
Deep	-	drwxr-xr-x	2022-02-23 11:26:39	Del
Deep.pm	48.38 KB	-rw-r--r--	2017-05-04 14:05:16	Edit Del
Dependencies	-	drwxr-xr-x	2022-02-23 11:31:11	Del
Dependencies.pm	10.79 KB	-rw-r--r--	2019-09-19 18:55:38	Edit Del
Differences.pm	17.48 KB	-rw-r--r--	2015-11-22 14:31:51	Edit Del
DistManifest.pm	17.66 KB	-rw-r--r--	2015-02-11 01:07:45	Edit Del
Distribution.pm	15.81 KB	-rw-r--r--	2019-10-16 15:35:53	Edit Del
EOL.pm	9.36 KB	-rw-r--r--	2017-05-03 22:39:03	Edit Del
Exception.pm	15.1 KB	-rw-r--r--	2015-12-29 19:53:49	Edit Del
FailWarnings.pm	5.32 KB	-rw-r--r--	2013-09-25 18:08:51	Edit Del
Fake	-	drwxr-xr-x	2022-02-23 11:30:53	Del
Fatal.pm	11.04 KB	-rw-r--r--	2014-12-09 23:36:03	Edit Del
File	-	drwxr-xr-x	2022-02-23 11:31:21	Del
Future	-	drwxr-xr-x	2022-02-23 11:28:29	Del
Future.pm	3.51 KB	-rw-r--r--	2020-11-11 14:23:23	Edit Del
HACKING.pod	6.2 KB	-rw-r--r--	2015-04-17 07:35:25	Edit Del
HTML	-	drwxr-xr-x	2022-02-23 11:31:29	Del
Harness.pm	16.26 KB	-rw-r--r--	2018-03-19 18:20:50	Edit Del
HasVersion.pm	6.13 KB	-rw-r--r--	2016-01-03 02:18:07	Edit Del
Identity.pm	2.89 KB	-rw-r--r--	2020-10-30 14:24:31	Edit Del
JSON.pm	4.28 KB	-rw-r--r--	2009-08-09 09:18:23	Edit Del
Kwalitee.pm	9.81 KB	-rw-r--r--	2019-02-02 19:29:34	Edit Del
LWP	-	drwxr-xr-x	2022-02-23 11:28:46	Del
LongString.pm	13.23 KB	-rw-r--r--	2014-11-06 07:08:55	Edit Del
Manifest.pm	10.97 KB	-rw-r--r--	2018-05-08 02:48:08	Edit Del
Memory	-	drwxr-xr-x	2022-02-23 11:31:09	Del
MemoryGrowth.pm	7.38 KB	-rw-r--r--	2020-06-15 08:23:12	Edit Del
MinimumVersion.pm	9.59 KB	-rw-r--r--	2015-12-07 04:40:05	Edit Del
Mock	-	drwxr-xr-x	2022-02-23 11:31:11	Del
MockModule.pm	11.1 KB	-rw-r--r--	2019-10-08 18:25:24	Edit Del
MockObject	-	drwxr-xr-x	2022-02-23 11:28:22	Del
MockObject.pm	22.91 KB	-rw-r--r--	2018-07-05 23:47:19	Edit Del
MockTime.pm	6.49 KB	-rw-r--r--	2018-04-01 06:05:32	Edit Del
Modern.pm	38.35 KB	-rw-r--r--	2014-10-05 18:29:52	Edit Del
Mojibake.pm	15.01 KB	-rw-r--r--	2017-02-06 15:19:07	Edit Del
Mojo.pm	34.12 KB	-rw-r--r--	2020-05-01 17:01:44	Edit Del
More.pm	51.76 KB	-rw-r--r--	2018-03-30 05:53:02	Edit Del
Most	-	drwxr-xr-x	2022-02-23 11:31:09	Del
Most.pm	23.5 KB	-rw-r--r--	2016-08-11 15:00:46	Edit Del
Name	-	drwxr-xr-x	2022-02-23 11:31:14	Del
Needs.pm	8.05 KB	-rw-r--r--	2019-04-04 20:42:43	Edit Del
Net	-	drwxr-xr-x	2022-02-23 11:30:54	Del
NoTabs.pm	6.49 KB	-rw-r--r--	2018-04-21 13:57:59	Edit Del
NoWarnings	-	drwxr-xr-x	2022-02-23 11:31:17	Del
NoWarnings.pm	7.44 KB	-rw-r--r--	2011-12-01 01:18:48	Edit Del
Number	-	drwxr-xr-x	2022-02-23 11:31:20	Del
Object	-	drwxr-xr-x	2022-02-23 11:31:20	Del
Object.pm	4 KB	-rw-r--r--	2017-12-23 21:17:37	Edit Del
Output.pm	21.9 KB	-rw-r--r--	2017-03-29 21:32:14	Edit Del
Perl	-	drwxr-xr-x	2022-02-23 11:30:58	Del
Pod	-	drwxr-xr-x	2022-02-23 11:30:59	Del
Pod.pm	7.36 KB	-rw-r--r--	2015-07-04 20:02:30	Edit Del
Portability	-	drwxr-xr-x	2022-02-23 11:31:20	Del
Prereq	-	drwxr-xr-x	2022-02-23 11:31:10	Del
Prereq.pm	8.58 KB	-rw-r--r--	2016-11-23 22:04:09	Edit Del
RDF	-	drwxr-xr-x	2022-02-23 11:30:50	Del
RandomResult.pm	4.93 KB	-rw-r--r--	2019-07-17 03:41:48	Edit Del
Refcount.pm	9.42 KB	-rw-r--r--	2019-10-30 20:06:07	Edit Del
Regexp.pm	30.34 KB	-rw-r--r--	2017-04-01 12:06:34	Edit Del
Requires.pm	3.6 KB	-rw-r--r--	2015-07-21 12:37:18	Edit Del
RequiresInternet.pm	2.87 KB	-rw-r--r--	2015-05-26 01:38:13	Edit Del
SQL	-	drwxr-xr-x	2022-02-23 11:30:44	Del
Script.pm	14.29 KB	-rw-r--r--	2018-09-27 19:33:23	Edit Del
SharedFork	-	drwxr-xr-x	2022-02-23 11:28:22	Del
SharedFork.pm	5.03 KB	-rw-r--r--	2015-12-21 23:25:54	Edit Del
Signature.pm	8.15 KB	-rw-r--r--	2015-04-08 11:49:54	Edit Del
Simple.pm	6.34 KB	-rw-r--r--	2018-03-30 05:53:02	Edit Del
Spelling.pm	14.52 KB	-rw-r--r--	2019-05-29 01:11:09	Edit Del
Spellunker.pm	5.12 KB	-rw-r--r--	2019-09-22 19:36:51	Edit Del
SubCalls.pm	4.66 KB	-rw-r--r--	2017-12-23 21:29:30	Edit Del
Synopsis.pm	10.54 KB	-rw-r--r--	2019-05-24 15:07:41	Edit Del
TCP	-	drwxr-xr-x	2022-02-23 11:28:22	Del
TCP.pm	10.12 KB	-rw-r--r--	2019-10-21 17:00:11	Edit Del
TempDir	-	drwxr-xr-x	2022-02-23 11:30:59	Del
TempDir.pm	3.95 KB	-rw-r--r--	2020-07-28 18:48:02	Edit Del
Tester	-	drwxr-xr-x	2022-02-23 11:15:19	Del
Tester.pm	17.9 KB	-rw-r--r--	2018-03-30 05:53:02	Edit Del
Time.pm	1.7 KB	-rw-r--r--	2019-05-07 01:55:59	Edit Del
Toolbox.pm	29.52 KB	-rw-r--r--	2016-08-26 05:52:09	Edit Del
TrailingSpace.pm	6.32 KB	-rw-r--r--	2019-08-23 14:12:10	Edit Del
Trap	-	drwxr-xr-x	2022-02-23 11:31:19	Del
Trap.pm	22 KB	-rw-r--r--	2019-11-01 06:49:41	Edit Del
Tutorial.pod	18.89 KB	-rw-r--r--	2018-03-30 05:53:02	Edit Del
TypeTiny.pm	5.39 KB	-rw-r--r--	2019-01-08 18:26:35	Edit Del
Unit	-	drwxr-xr-x	2022-02-23 11:31:19	Del
UseAllModules.pm	4.19 KB	-rw-r--r--	2014-11-13 08:10:21	Edit Del
Valgrind	-	drwxr-xr-x	2022-02-23 11:30:55	Del
Valgrind.pm	11.75 KB	-rw-r--r--	2016-08-01 20:36:05	Edit Del
Vars.pm	15.34 KB	-rw-r--r--	2017-04-11 23:02:46	Edit Del
Version.pm	11.3 KB	-rw-r--r--	2018-04-25 13:40:17	Edit Del
WWW	-	drwxr-xr-x	2022-02-23 11:30:53	Del
Warn.pm	14.77 KB	-rw-r--r--	2016-12-23 14:13:41	Edit Del
Warnings.pm	12.5 KB	-rw-r--r--	2016-01-27 03:13:30	Edit Del
Without	-	drwxr-xr-x	2022-02-23 11:31:19	Del
XML	-	drwxr-xr-x	2022-02-23 11:31:09	Del
XML.pm	5.11 KB	-rw-r--r--	2009-07-02 06:10:11	Edit Del
mysqld.pm	13.43 KB	-r--r--r--	2020-04-12 18:51:13	Edit Del
use	-	drwxr-xr-x	2022-02-23 11:15:19	Del

Editing: CleanNamespaces.pm (8.16 KB)

use strict;
use warnings;
package Test::CleanNamespaces; # git description: v0.23-5-gf8e88b1
# ABSTRACT: Check for uncleaned imports
# KEYWORDS: testing namespaces clean dirty imports exports subroutines methods

our $VERSION = '0.24';

use Module::Runtime ();
use Sub::Identify ();
use Package::Stash 0.14;
use Test::Builder;
use File::Find ();
use File::Spec;

use Exporter 5.57 'import';
our @EXPORT = qw(namespaces_clean all_namespaces_clean);

#pod =head1 SYNOPSIS
#pod
#pod     use strict;
#pod     use warnings;
#pod     use Test::CleanNamespaces;
#pod
#pod     all_namespaces_clean;
#pod
#pod =head1 DESCRIPTION
#pod
#pod This module lets you check your module's namespaces for imported functions you
#pod might have forgotten to remove with L<namespace::autoclean> or
#pod L<namespace::clean> and are therefore available to be called as methods, which
#pod usually isn't want you want.
#pod
#pod =head1 FUNCTIONS
#pod
#pod All functions are exported by default.
#pod
#pod =head2 namespaces_clean
#pod
#pod     namespaces_clean('YourModule', 'AnotherModule');
#pod
#pod Tests every specified namespace for uncleaned imports. If the module couldn't
#pod be loaded it will be skipped.
#pod
#pod =head2 all_namespaces_clean
#pod
#pod     all_namespaces_clean;
#pod
#pod Runs L</namespaces_clean> for all modules in your distribution.
#pod
#pod =cut

sub namespaces_clean {
    my (@namespaces) = @_;
    local $@;
    my $builder = builder();

    my $result = 1;
    for my $ns (@namespaces) {
        unless (eval { Module::Runtime::require_module($ns); 1 }) {
            $builder->skip("failed to load ${ns}: $@");
            next;
        }

        my $imports = _remaining_imports($ns);

        my $ok = $builder->ok(!keys(%$imports), "${ns} contains no imported functions");
        $ok or $builder->diag($builder->explain('remaining imports: ' => $imports));

        $result &&= $ok;
    }

    return $result;
}

sub all_namespaces_clean {
    my @modules = find_modules(@_);
    builder()->plan(tests => scalar @modules);
    namespaces_clean(@modules);
}

# given a package name, returns a hashref of all remaining imports
sub _remaining_imports {
    my $ns = shift;

    my $symbols = Package::Stash->new($ns)->get_all_symbols('CODE');
    my @imports;

    my $meta;
    if ($INC{ Module::Runtime::module_notional_filename('Class::MOP') }
        and $meta = Class::MOP::class_of($ns)
        and $meta->can('get_method_list'))
    {
        my %subs = %$symbols;
        delete @subs{ $meta->get_method_list };
        @imports = keys %subs;
    }
    elsif ($INC{ Module::Runtime::module_notional_filename('Mouse::Util') }
        and Mouse::Util->can('class_of') and $meta = Mouse::Util::class_of($ns))
    {
        warn 'Mouse class detected - chance of false negatives is high!';

        my %subs = %$symbols;
        # ugh, this returns far more than the true list of methods
        delete @subs{ $meta->get_method_list };
        @imports = keys %subs;
    }
    else
    {
        @imports = grep {
            my $stash = Sub::Identify::stash_name($symbols->{$_});
            $stash ne $ns
                and $stash ne 'Role::Tiny'
                and not eval { require Role::Tiny; Role::Tiny->is_role($stash) }
        } keys %$symbols;
    }

    my %imports; @imports{@imports} = map { Sub::Identify::sub_fullname($symbols->{$_}) } @imports;

    # these subs are special-cased - they are often provided by other
    # modules, but cannot be wrapped with Sub::Name as the call stack
    # is important
    delete @imports{qw(import unimport)};

    my @overloads = grep { $imports{$_} eq 'overload::nil' || $imports{$_} eq 'overload::_nil' } keys %imports;
    delete @imports{@overloads} if @overloads;

    if ("$]" < 5.020)
    {
        # < haarg> 5.10+ allows sticking a readonly scalar ref directly in the symbol table, rather than a glob.  when auto-promoted to a sub, it will have the correct name.
        # < haarg> but that only works if the symbol table entry is empty
        # < haarg> if it exists, it has to use the *$const = sub () { $val } method, so the name is __ANON__
        # < haarg> newer versions don't use that method
        # < haarg> rather, newer versions of constant.pm don't use that method
        # < haarg> and then the name ends up being YourPackage::__ANON__
        my @constants = grep { $imports{$_} eq 'constant::__ANON__' } keys %imports;
        delete @imports{@constants} if @constants;
    }

    return \%imports;
}

#pod =head2 find_modules
#pod
#pod     my @modules = Test::CleanNamespaces->find_modules;
#pod
#pod Returns a list of modules in the current distribution. It'll search in
#pod C<blib/>, if it exists. C<lib/> will be searched otherwise.
#pod
#pod =cut

sub find_modules {
    my @modules;
    for my $top (-e 'blib' ? ('blib/lib', 'blib/arch') : 'lib') {
        File::Find::find({
            no_chdir => 1,
            wanted => sub {
                my $file = $_;
                return
                    unless $file =~ s/\.pm$//;
                push @modules, join '::' => File::Spec->splitdir(
                    File::Spec->abs2rel(File::Spec->rel2abs($file, '.'), $top)
                );
            },
        }, $top);
    }
    return @modules;
}

#pod =head2 builder
#pod
#pod     my $builder = Test::CleanNamespaces->builder;
#pod
#pod Returns the C<Test::Builder> used by the test functions.
#pod
#pod =cut

{
    my $Test = Test::Builder->new;
    sub builder { $Test }
}

1;

__END__

=pod

=encoding UTF-8

=head1 NAME

Test::CleanNamespaces - Check for uncleaned imports

=head1 VERSION

version 0.24

=head1 SYNOPSIS

    use strict;
    use warnings;
    use Test::CleanNamespaces;

    all_namespaces_clean;

=head1 DESCRIPTION

This module lets you check your module's namespaces for imported functions you
might have forgotten to remove with L<namespace::autoclean> or
L<namespace::clean> and are therefore available to be called as methods, which
usually isn't want you want.

=head1 FUNCTIONS

All functions are exported by default.

=head2 namespaces_clean

    namespaces_clean('YourModule', 'AnotherModule');

Tests every specified namespace for uncleaned imports. If the module couldn't
be loaded it will be skipped.

=head2 all_namespaces_clean

    all_namespaces_clean;

Runs L</namespaces_clean> for all modules in your distribution.

=head2 find_modules

    my @modules = Test::CleanNamespaces->find_modules;

Returns a list of modules in the current distribution. It'll search in
C<blib/>, if it exists. C<lib/> will be searched otherwise.

=head2 builder

    my $builder = Test::CleanNamespaces->builder;

Returns the C<Test::Builder> used by the test functions.

=head1 KNOWN ISSUES

Uncleaned imports from L<Mouse> classes are incompletely detected, due to its
lack of ability to return the correct method list -- it assumes that all subs
are meant to be callable as methods unless they originated from (were imported
by) one of: L<Mouse>, L<Mouse::Role>, L<Mouse::Util>,
L<Mouse::Util::TypeConstraints>, L<Carp>, L<Scalar::Util>, or L<List::Util>.

=head1 SEE ALSO

=over 4

=item *

L<namespace::clean>

=item *

L<namespace::autoclean>

=item *

L<namespace::sweep>

=item *

L<Sub::Exporter::ForMethods>

=item *

L<Test::API>

=item *

L<Sub::Name>

=item *

L<Sub::Install>

=item *

L<MooseX::MarkAsMethods>

=item *

L<Dist::Zilla::Plugin::Test::CleanNamespaces>

=back

=head1 SUPPORT

Bugs may be submitted through L<the RT bug tracker|https://rt.cpan.org/Public/Dist/Display.html?Name=Test-CleanNamespaces>
(or L<bug-Test-CleanNamespaces@rt.cpan.org|mailto:bug-Test-CleanNamespaces@rt.cpan.org>).

There is also a mailing list available for users of this distribution, at
L<http://lists.perl.org/list/perl-qa.html>.

There is also an irc channel available for users of this distribution, at
L<C<#perl> on C<irc.perl.org>|irc://irc.perl.org/#perl-qa>.

=head1 AUTHOR

Florian Ragwitz <rafl@debian.org>

=head1 CONTRIBUTORS

=for stopwords Karen Etheridge Graham Knop

=over 4

=item *

Karen Etheridge <ether@cpan.org>

=item *

Graham Knop <haarg@haarg.org>

=back

=head1 COPYRIGHT AND LICENCE

This software is copyright (c) 2009 by Florian Ragwitz.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut