From: Florian Ragwitz Date: Sat, 5 Jun 2010 20:47:21 +0000 (+0200) Subject: Convert to Dist::Zilla X-Git-Tag: 0.16~3 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=043124941be4ff69a092e2090db8482c76ea5bb1;p=p5sagit%2Fnamespace-clean.git Convert to Dist::Zilla --- diff --git a/MANIFEST.SKIP b/MANIFEST.SKIP deleted file mode 100644 index 50845b2..0000000 --- a/MANIFEST.SKIP +++ /dev/null @@ -1,9 +0,0 @@ -^\. -build\b -blib\b -\.(?:bak|o|c|bs)$ -^Makefile$ -^Makefile.old$ -^Debian -^namespace-clean- -^MANIFEST.(?:SKIP|bak)$ diff --git a/Makefile.PL b/Makefile.PL deleted file mode 100644 index a444a3b..0000000 --- a/Makefile.PL +++ /dev/null @@ -1,31 +0,0 @@ -#!/usr/bin/env perl -use warnings; -use strict; - -use inc::Module::Install; - -name q{namespace-clean}; -license q{perl}; -author q{Robert 'phaylon' Sedlacek }; -all_from q{lib/namespace/clean.pm}; - -build_requires q{Test::More}, '0.88'; -build_requires q{FindBin}, 0; - -requires q{B::Hooks::EndOfScope}, '0.07'; -requires q{Package::Stash}, '0.03'; -requires q{Sub::Name}, '0.04'; -requires q{Sub::Identify}, '0.04'; - -auto_provides; - -if (-e 'MANIFEST.SKIP') { - - print "Creating README file\n"; - system 'pod2text lib/namespace/clean.pm > README'; - - print "Adding author tests to 'make test' run\n"; - tests 't/*.t t_author/*.t'; -} - -WriteAll; diff --git a/dist.ini b/dist.ini new file mode 100644 index 0000000..117305b --- /dev/null +++ b/dist.ini @@ -0,0 +1,15 @@ +name = namespace-clean +version = 0.15 +author = Robert 'phaylon' Sedlacek +author = Florian Ragwitz +license = Perl_5 +copyright_holder = Robert 'phaylon' Sedlacek + +[@FLORA] +dist = namespace-clean +repository_at = github +authority = cpan:PHAYLON +auto_prereq = 0 + +[AutoPrereq] +skip = ^Inheritance diff --git a/lib/namespace/clean.pm b/lib/namespace/clean.pm index 6352187..0d738ad 100644 --- a/lib/namespace/clean.pm +++ b/lib/namespace/clean.pm @@ -1,27 +1,15 @@ package namespace::clean; - -=head1 NAME - -namespace::clean - Keep imports and functions out of your namespace - -=cut +# ABSTRACT: Keep imports and functions out of your namespace use warnings; use strict; -use vars qw( $VERSION $STORAGE_VAR $SCOPE_HOOK_KEY $SCOPE_EXPLICIT ); -use B::Hooks::EndOfScope; -use Package::Stash; -use Sub::Identify qw(sub_fullname); -use Sub::Name qw(subname); - -=head1 VERSION - -0.13 - -=cut +use vars qw( $STORAGE_VAR $SCOPE_HOOK_KEY $SCOPE_EXPLICIT ); +use Sub::Name 0.04 qw(subname); +use Sub::Identify 0.04 qw(sub_fullname); +use Package::Stash 0.03; +use B::Hooks::EndOfScope 0.07; -$VERSION = '0.15'; $STORAGE_VAR = '__NAMESPACE_CLEAN_STORAGE'; =head1 SYNOPSIS @@ -62,7 +50,7 @@ $STORAGE_VAR = '__NAMESPACE_CLEAN_STORAGE'; When you define a function, or import one, into a Perl package, it will naturally also be available as a method. This does not per se cause problems, but it can complicate subclassing and, for example, plugin -classes that are included via multiple inheritance by loading them as +classes that are included via multiple inheritance by loading them as base classes. The C pragma will remove all previously declared or @@ -137,14 +125,7 @@ option like this: If you don't care about Cs discover-and-C<-except> logic, and just want to remove subroutines, try L. -=head1 METHODS - -You shouldn't need to call any of these. Just C the package at the -appropriate place. - -=cut - -=head2 clean_subroutines +=method clean_subroutines This exposes the actual subroutine-removal logic. @@ -194,7 +175,7 @@ sub clean_subroutines { $RemoveSubs->($cleanee, {}, @subs); } -=head2 import +=method import Makes a snapshot of the current defined functions and installs a L hook in the current scope to invoke the cleanups. @@ -259,7 +240,7 @@ sub import { } } -=head2 unimport +=method unimport This method will be called when you do a @@ -287,9 +268,9 @@ sub unimport { return 1; } -=head2 get_class_store +=method get_class_store -This returns a reference to a hash in a passed package containing +This returns a reference to a hash in a passed package containing information about function names included and excluded from removal. =cut @@ -300,7 +281,7 @@ sub get_class_store { return $stash->get_package_symbol("%$STORAGE_VAR"); } -=head2 get_functions +=method get_functions Takes a class as argument and returns all currently defined functions in it as a hash reference with the function name as key and a typeglob @@ -318,15 +299,9 @@ sub get_functions { }; } -=head1 BUGS - -C will clobber any formats that have the same name as -a deleted sub. This is due to a bug in perl that makes it impossible to -re-assign the FORMAT ref into a new glob. - =head1 IMPLEMENTATION DETAILS -This module works through the effect that a +This module works through the effect that a delete $SomePackage::{foo}; @@ -345,15 +320,9 @@ use C instead. L -=head1 AUTHOR AND COPYRIGHT - -Robert 'phaylon' Sedlacek Crs@474.atE>, with many thanks to -Matt S Trout for the inspiration on the whole idea. - -=head1 LICENSE +=head1 THANKS -This program is free software; you can redistribute it and/or modify -it under the same terms as perl itself. +Many thanks to Matt S Trout for the inspiration on the whole idea. =cut diff --git a/t/00-basic.t b/t/00-basic.t index fc59562..80ba682 100644 --- a/t/00-basic.t +++ b/t/00-basic.t @@ -8,7 +8,7 @@ use Test::More tests => 4; use ExporterTest qw( foo bar ); -BEGIN { +BEGIN { ok( main->can('foo'), 'methods are there before cleanup' ); eval { require namespace::clean ;; namespace::clean->import }; ok( !$@, 'module use ok' ); diff --git a/t/02-inheritance.t b/t/02-inheritance.t index 3d3cc94..0d7e101 100644 --- a/t/02-inheritance.t +++ b/t/02-inheritance.t @@ -21,7 +21,7 @@ ok( !Inheritance->can('foo'), 'parent function not available in subclass' ); ok( Inheritance->can('bar'), 'parent method available in subclass' ); -is( Inheritance->bar, 23, +is( Inheritance->bar, 23, 'parent method works in subclass' ); is( Inheritance->qux, 23, 'subclass method calls to parent work' ); diff --git a/t/08-const-sub.t b/t/08-const-sub.t index 1ec65b9..ec0d861 100644 --- a/t/08-const-sub.t +++ b/t/08-const-sub.t @@ -1,7 +1,7 @@ use strict; use warnings; -use Test::More; +use Test::More 0.88; use constant CONST => 123; use namespace::clean; diff --git a/t_author/10-pod.t b/t_author/10-pod.t deleted file mode 100644 index 124beaf..0000000 --- a/t_author/10-pod.t +++ /dev/null @@ -1,10 +0,0 @@ -#!perl -use warnings; -use strict; - -use Test::More; -eval 'use Test::Pod 1.00'; -plan skip_all => 'Test::Pod 1.00 required for POD tests' if $@; - -all_pod_files_ok( all_pod_files('lib') ); - diff --git a/t_author/11-pod-coverage.t b/t_author/11-pod-coverage.t deleted file mode 100644 index 67fb274..0000000 --- a/t_author/11-pod-coverage.t +++ /dev/null @@ -1,10 +0,0 @@ -#!perl -use warnings; -use strict; - -use Test::More; -eval 'use Test::Pod::Coverage'; -plan skip_all => 'Test::Pod::Coverage required to run POD coverage tests' if $@; - -all_pod_coverage_ok(); - diff --git a/t_author/07-debugger.t b/xt/author/07-debugger.t similarity index 100% rename from t_author/07-debugger.t rename to xt/author/07-debugger.t