[libdist-zilla-plugin-test-podspelling-perl] 03/13: allow configuration of checked directories

[Axel Beckert]

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 <xenoterracide at gmail.com>
Date:   Thu Feb 14 18:42:23 2013 -0600

    allow configuration of checked directories
    
    GH #8
    
    Signed-off-by: Caleb Cushing <xenoterracide at 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