[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