This is an automated email from the git hooks/post-receive script. abe pushed a commit to annotated tag 2.004000 in repository libdist-zilla-plugin-test-podspelling-perl.
commit 3d35f4cdfb3f019dd344a00163b67411d5ce1694 Author: Caleb Cushing <xenoterrac...@gmail.com> Date: Thu Feb 14 18:42:23 2013 -0600 allow configuration of checked directories GH #8 Signed-off-by: Caleb Cushing <xenoterrac...@gmail.com> --- lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm index 2b8c6a7..b888457 100644 --- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm +++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm @@ -14,7 +14,7 @@ with ( }, ); -sub mvp_multivalue_args { return qw( stopwords ) } +sub mvp_multivalue_args { return ( qw( stopwords directories ) ) } has wordlist => ( is => 'ro', @@ -40,6 +40,17 @@ has stopwords => ( } ); +has directories => ( + isa => 'ArrayRef[Str]', + traits => [ 'Array' ], + is => 'ro', + default => sub { [] }, # default to original + handles => { + no_directories => 'is_empty', + print_directories => [ join => ' ' ], + } +); + around add_file => sub { my ($orig, $self, $file) = @_; my ($set_spell_cmd, $add_stopwords, $stopwords); @@ -84,6 +95,7 @@ around add_file => sub { $add_stopwords = 'add_stopwords(<DATA>);'; $stopwords = join "\n", '__DATA__', $self->uniq_stopwords; } + $self->$orig( Dist::Zilla::File::InMemory->new( { name => $file->name, @@ -97,6 +109,7 @@ around add_file => sub { set_spell_cmd => \$set_spell_cmd, add_stopwords => \$add_stopwords, stopwords => \$stopwords, + directories => \$self->print_directories, }, ), } @@ -178,5 +191,5 @@ eval "use Test::Spelling 0.12; use {{ $wordlist }}; 1" or die $@; {{ $set_spell_cmd }} {{ $add_stopwords }} -all_pod_files_spelling_ok('bin', 'lib'); +all_pod_files_spelling_ok( qw( lib {{ $directories }} ) ); {{ $stopwords }} -- Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git _______________________________________________ Pkg-perl-cvs-commits mailing list Pkg-perl-cvs-commits@lists.alioth.debian.org http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits