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 <xenoterrac...@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 <xenoterrac...@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 _______________________________________________ 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