[libdist-zilla-plugin-test-podspelling-perl] 01/02: generate more stopwords based on the files in the dist

Axel Beckert abe at deuxchevaux.org
Mon May 25 10:02:42 UTC 2015


This is an automated email from the git hooks/post-receive script.

abe pushed a commit to annotated tag 2.002000
in repository libdist-zilla-plugin-test-podspelling-perl.

commit 5ee2eeaad690db68b5c0bcf81a9dcac37918208f
Author: Caleb Cushing <xenoterracide at gmail.com>
Date:   Tue Jan 10 00:05:39 2012 -0600

    generate more stopwords based on the files in the dist
    
    Signed-off-by: Caleb Cushing <xenoterracide at gmail.com>
---
 lib/Dist/Zilla/Plugin/Test/PodSpelling.pm | 20 +++++++++++++++++++-
 1 file changed, 19 insertions(+), 1 deletion(-)

diff --git a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
index a9d9d70..b663bf7 100644
--- a/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
+++ b/lib/Dist/Zilla/Plugin/Test/PodSpelling.pm
@@ -7,7 +7,12 @@ use warnings;
 
 use Moose;
 extends 'Dist::Zilla::Plugin::InlineFiles';
-with 'Dist::Zilla::Role::TextTemplate';
+with (
+	'Dist::Zilla::Role::TextTemplate',
+	'Dist::Zilla::Role::FileFinderUser' => {
+		default_finders => [ ':InstallModules' ],
+	},
+);
 
 sub mvp_multivalue_args { return qw( stopwords ) }
 
@@ -61,6 +66,18 @@ around add_file => sub {
 		$self->log_debug( 'no copyright_holder found' );
 	}
 
+	foreach my $file ( @{ $self->found_files } ) {
+		# many of my stopwords are part of a filename
+		$self->log_debug( 'splitting filenames for more words' );
+
+		foreach ( split( '/', $file->name ) ) {
+			my ( $word ) = $_ =~ /(\w+)/xms;
+			$self->log_debug( 'word: ' . $word);
+
+			$self->push_stopwords( $word );
+		}
+	}
+
 	unless ( $self->no_stopwords ) {
 		$add_stopwords = 'add_stopwords(<DATA>);';
 		$stopwords = join "\n", '__DATA__', $self->uniq_stopwords;
@@ -147,6 +164,7 @@ mvp_multivalue_args
 __DATA__
 ___[ xt/author/pod-spell.t ]___
 #!perl
+
 # This test is generated by Dist::Zilla::Plugin::Test::PodSpelling
 
 use Test::More;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libdist-zilla-plugin-test-podspelling-perl.git



More information about the Pkg-perl-cvs-commits mailing list