weave some pod, respecting overridden authors/legal
Karen Etheridge [Sun, 16 Aug 2015 04:59:33 +0000 (21:59 -0700)]
35 files changed:
dist.ini
lib/Devel/REPL.pm
lib/Devel/REPL/Error.pm
lib/Devel/REPL/Overview.pod
lib/Devel/REPL/Plugin/B/Concise.pm
lib/Devel/REPL/Plugin/Colors.pm
lib/Devel/REPL/Plugin/Commands.pm
lib/Devel/REPL/Plugin/Completion.pm
lib/Devel/REPL/Plugin/CompletionDriver/Globals.pm
lib/Devel/REPL/Plugin/CompletionDriver/INC.pm
lib/Devel/REPL/Plugin/CompletionDriver/Keywords.pm
lib/Devel/REPL/Plugin/CompletionDriver/LexEnv.pm
lib/Devel/REPL/Plugin/CompletionDriver/Methods.pm
lib/Devel/REPL/Plugin/CompletionDriver/Turtles.pm
lib/Devel/REPL/Plugin/DDC.pm
lib/Devel/REPL/Plugin/DDS.pm
lib/Devel/REPL/Plugin/DumpHistory.pm
lib/Devel/REPL/Plugin/FancyPrompt.pm
lib/Devel/REPL/Plugin/FindVariable.pm
lib/Devel/REPL/Plugin/History.pm
lib/Devel/REPL/Plugin/Interrupt.pm
lib/Devel/REPL/Plugin/LexEnv.pm
lib/Devel/REPL/Plugin/MultiLine/PPI.pm
lib/Devel/REPL/Plugin/Nopaste.pm
lib/Devel/REPL/Plugin/OutputCache.pm
lib/Devel/REPL/Plugin/PPI.pm
lib/Devel/REPL/Plugin/Packages.pm
lib/Devel/REPL/Plugin/Peek.pm
lib/Devel/REPL/Plugin/ReadLineHistory.pm
lib/Devel/REPL/Plugin/Refresh.pm
lib/Devel/REPL/Plugin/ShowClass.pm
lib/Devel/REPL/Plugin/Timing.pm
lib/Devel/REPL/Plugin/Turtles.pm
lib/Devel/REPL/Profile.pm
weaver.ini [new file with mode: 0644]

index ecc0fe9..174812d 100644 (file)
--- a/dist.ini
+++ b/dist.ini
@@ -10,14 +10,12 @@ finder = :InstallModules
 skip = Devel/REPL/Plugin/(Completion|LexEnv|DDC|DDS|Interrupt|MultiLine/PPI|Nopaste|PPI|Refresh)\.pm$
 skip = Devel/REPL/Plugin/CompletionDriver/
 
-[PodVersion]
-
 [@Author::ETHER]
 :version = 0.086
--remove = PodWeaver
 server = p5sagit
 installer = MakeMaker   ; Module::Build::Tiny cannot handle dynamic_config => 1
 changes_version_columns = 11
+surgical_podweaver = 1
 Authority.authority = cpan:PHAYLON
 Test::MinimumVersion.max_target_perl = 5.008001
 -remove = PodCoverageTests  ; XXX TODO
index e4e7e79..e7f2caa 100644 (file)
@@ -1,4 +1,5 @@
 package Devel::REPL;
+# ABSTRACT: A modern perl interactive shell
 
 our $VERSION = '1.003027';
 
@@ -151,9 +152,10 @@ sub print {
   print $fh "\n" if $self->term->ReadLine =~ /Gnu/;
 }
 
-=head1 NAME
+1;
+__END__
 
-Devel::REPL - A modern perl interactive shell
+=pod
 
 =head1 SYNOPSIS
 
@@ -392,42 +394,4 @@ distribution interactively (e.g. C<cpanm --interactive Devel::REPL>).
 
 =back
 
-=head1 AUTHOR
-
-Matt S Trout - mst (at) shadowcatsystems.co.uk (L<http://www.shadowcatsystems.co.uk/>)
-
-=head1 CONTRIBUTORS
-
-=over 4
-
-=item Stevan Little - stevan (at) iinteractive.com
-
-=item Alexis Sukrieh - sukria+perl (at) sukria.net
-
-=item epitaph
-
-=item mgrimes - mgrimes (at) cpan dot org
-
-=item Shawn M Moore - sartak (at) gmail.com
-
-=item Oliver Gorwits - oliver on irc.perl.org
-
-=item Andrew Moore - C<< <amoore@cpan.org> >>
-
-=item Norbert Buchmuller C<< <norbi@nix.hu> >>
-
-=item Dave Houston C<< <dhouston@cpan.org> >>
-
-=item Chris Marshall
-
-=item Karen Etheridge C<< <ether@cpan.org> >>
-
-=back
-
-=head1 LICENSE
-
-This library is free software under the same terms as perl itself
-
 =cut
-
-1;
index 0ad9513..874f35d 100644 (file)
@@ -25,5 +25,3 @@ sub stringify {
   sprintf "%s: %s", $self->type, $self->message;
 }
 __PACKAGE__
-
-__END__
index bf657de..122c371 100644 (file)
@@ -1,3 +1,5 @@
+=pod
+
 =head1 NAME
 
 Devel::REPL::Overview - overview of Devel::REPL.
index 5d9a4b5..153b4d8 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::B::Concise;
+# ABSTRACT: B::Concise dumping of expression optrees
 
 our $VERSION = '1.003027';
 
@@ -55,10 +56,6 @@ __END__
 
 =pod
 
-=head1 NAME
-
-Devel::REPL::Plugin::B::Concise - B::Concise dumping of expression optrees
-
 =head1 SYNOPSIS
 
   repl> #concise -exec -terse {
@@ -90,5 +87,3 @@ determine the formatting, etc.
 Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
 
 =cut
-
-
index a90e30f..66f7d6e 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Colors;
+# ABSTRACT: Add color to return values, warnings, and errors
 
 our $VERSION = '1.003027';
 
@@ -65,9 +66,7 @@ around execute => \&_wrap_warn;
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Colors - add color to return values, warnings, and errors
+=pod
 
 =head1 SYNOPSIS
 
index 961dbf0..057b63d 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Commands;
+# ABSTRACT: Generic command creation plugin using injected functions
 
 our $VERSION = '1.003027';
 
@@ -67,12 +68,3 @@ around 'compile' => sub {
 };
 
 1;
-
-__END__
-
-=head1 NAME
-
-Devel::REPL::Plugin::Commands - Generic command creation plugin using injected functions
-
-=cut
-
index 17e391a..df99995 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Completion;
+# ABSTRACT: Extensible tab completion
 
 our $VERSION = '1.003027';
 
@@ -127,9 +128,7 @@ sub last_ppi_element {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Completion - Extensible tab completion
+=pod
 
 =head1 NOTE
 
@@ -143,4 +142,3 @@ Set the attribute C<do_readline_filename_completion> to 1 to enable this feature
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index 7599d2b..1760a18 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::CompletionDriver::Globals;
+# ABSTRACT: Complete global variables, packages, namespaced functions
 
 our $VERSION = '1.003027';
 
@@ -63,13 +64,10 @@ around complete => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::Globals - Complete global variables, packages, namespaced functions
+=pod
 
 =head1 AUTHOR
 
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index debab15..90eba7e 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::CompletionDriver::INC;
+# ABSTRACT: Complete module names in use and require
 
 our $VERSION = '1.003027';
 
@@ -128,13 +129,10 @@ around complete => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::INC - Complete module names in use and require
+=pod
 
 =head1 AUTHOR
 
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index 90eb43d..d953ee8 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::CompletionDriver::Keywords;
+# ABSTRACT: Complete Perl keywords and operators
 
 our $VERSION = '1.003027';
 
@@ -39,13 +40,10 @@ around complete => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::Keywords - Complete Perl keywords and operators
+=pod
 
 =head1 AUTHOR
 
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index dd833bc..48a444e 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::CompletionDriver::LexEnv;
+# ABSTRACT: Complete variable names in the REPL's lexical environment
 
 our $VERSION = '1.003027';
 
@@ -37,13 +38,10 @@ around complete => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::LexEnv - Complete variable names in the REPL's lexical environment
+=pod
 
 =head1 AUTHOR
 
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index 837d1bf..05eef00 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::CompletionDriver::Methods;
+# ABSTRACT: Complete class or object method names
 
 our $VERSION = '1.003027';
 
@@ -71,13 +72,10 @@ around complete => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::Methods - Complete class or object method names
+=pod
 
 =head1 AUTHOR
 
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index abdd761..4377fb1 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::CompletionDriver::Turtles;
+# ABSTRACT: Complete Turtles-based commands
 
 our $VERSION = '1.003027';
 
@@ -43,13 +44,10 @@ __PACKAGE__
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::CompletionDriver::Turtles - Complete Turtles-based commands
+=pod
 
 =head1 AUTHOR
 
 Yuval Kogman E<lt>nothingmuch@woobling.orgE<gt>
 
 =cut
-
index 4d5e8e4..b788fb4 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::DDC;
+# ABSTRACT: Format results with Data::Dumper::Concise
 
 our $VERSION = '1.003027';
 
@@ -29,9 +30,7 @@ around 'format_result' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::DDC - Format results with Data::Dumper::Concise
+=pod
 
 =head1 SYNOPSIS
 
@@ -52,4 +51,3 @@ Devel::REPL::Plugin::DDC - Format results with Data::Dumper::Concise
  $
 
 =cut
-
index 171802b..b4326f7 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::DDS;
+# ABSTRACT: Format results with Data::Dump::Streamer
 
 our $VERSION = '1.003027';
 
@@ -32,9 +33,7 @@ around 'format_result' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
+=pod
 
 =head1 SYNOPSIS
 
@@ -55,4 +54,3 @@ Devel::REPL::Plugin::DDS - Format results with Data::Dump::Streamer
  $
 
 =cut
-
index d9c9170..1149b63 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::DumpHistory;
+# ABSTRACT: Plugin for Devel::REPL to save or print the history
 
 our $VERSION = '1.003027';
 
@@ -45,10 +46,7 @@ sub print_history {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::DumpHistory - Plugin for Devel::REPL to save or print
-the history.
+=pod
 
 =head1 SYNOPSIS
 
index f6e98f5..4bc3787 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::FancyPrompt;
+# ABSTRACT: Facilitate user-defined prompts
 
 our $VERSION = '1.003027';
 
@@ -61,9 +62,7 @@ before 'read' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::FancyPrompt - facilitate user-defined prompts
+=pod
 
 =head1 SYNOPSIS
 
@@ -119,4 +118,3 @@ This library is free software; you can redistribute it and/or modify
 it under the same terms as Perl itself.
 
 =cut
-
index e4a1680..c55c8e3 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::FindVariable;
+# ABSTRACT: Finds variables by name
 
 our $VERSION = '1.003027';
 
@@ -36,13 +37,10 @@ sub find_variable {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::FindVariable - Finds variables by name
+=pod
 
 =head1 AUTHOR
 
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index c3e63c0..42bfd42 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::History;
+# ABSTRACT: Keep track of all input, provide shortcuts !1, !-1
 
 our $VERSION = '1.003027';
 
@@ -71,12 +72,3 @@ sub history_call {
 };
 
 1;
-
-__END__
-
-=head1 NAME
-
-Devel::REPL::Plugin::History - Keep track of all input, provide shortcuts !1, !-1
-
-=cut
-
index 27ea599..2b4a478 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Interrupt;
+# ABSTRACT: Traps SIGINT to kill long-running lines
 
 our $VERSION = '1.003027';
 
@@ -49,9 +50,7 @@ around 'read' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Interrupt - traps SIGINT to kill long-running lines
+=pod
 
 =head1 DESCRIPTION
 
index fd72a36..a8d93d4 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::LexEnv;
+# ABSTRACT: Provide a lexical environment for the REPL
 
 our $VERSION = '1.003027';
 
@@ -67,9 +68,7 @@ around 'execute' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::LexEnv - Provide a lexical environment for the REPL
+=pod
 
 =head1 SYNOPSIS
 
@@ -91,4 +90,3 @@ Devel::REPL::Plugin::LexEnv - Provide a lexical environment for the REPL
  $ warn $s->resultset('User')->first->first_name # <-- note that $s works
 
 =cut
-
index 8f58d61..d4540a0 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::MultiLine::PPI;
+# ABSTRACT: Read lines until all blocks are closed
 
 our $VERSION = '1.003027';
 
@@ -86,9 +87,7 @@ sub line_needs_continuation
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::MultiLine::PPI - read lines until all blocks are closed
+=pod
 
 =head1 SYNOPSIS
 
index 353ec2b..1197aa2 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Nopaste;
+# ABSTRACT: #nopaste to upload session's input and output
 
 our $VERSION = '1.003027';
 
@@ -98,9 +99,7 @@ sub command_pastetitle {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Nopaste - #nopaste to upload session's input and output
+=pod
 
 =head1 COMMANDS
 
@@ -152,4 +151,3 @@ Shawn M Moore, C<< <sartak at gmail dot com> >>
 =back
 
 =cut
-
index 886bf96..233fd50 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::OutputCache;
+# ABSTRACT: Remember past results, _ is most recent
 
 our $VERSION = '1.003027';
 
@@ -54,9 +55,7 @@ around 'eval' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::OutputCache - remember past results, _ is most recent
+=pod
 
 =head1 SYNOPSIS
 
index 44aedb2..cb84861 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::PPI;
+# ABSTRACT: PPI dumping of Perl code
 
 our $VERSION = '1.003027';
 
@@ -28,10 +29,6 @@ __END__
 
 =pod
 
-=head1 NAME
-
-Devel::REPL::Plugin::PPI - PPI dumping of Perl code
-
 =head1 SYNOPSIS
 
   repl> #ppi Devel::REPL
@@ -66,5 +63,3 @@ L<Deve::REPL::Plugin::OutputCache> there is no new value in C<_>.
 Shawn M Moore E<lt>sartak@gmail.comE<gt>
 
 =cut
-
-
index a19e277..246cb9e 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Packages;
+# ABSTRACT: Keep track of which package the user is in
 
 our $VERSION = '1.003027';
 
@@ -54,12 +55,3 @@ package Devel::REPL::Plugin::Packages::DefaultScratchpad;
 # declare empty scratchpad package for cleanliness
 
 1;
-
-__END__
-
-=head1 NAME
-
-Devel::REPL::Plugin::Packages - Keep track of which package the user is in
-
-=cut
-
index ba0cea3..f5d2d5a 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Peek;
+# ABSTRACT: L<Devel::Peek> plugin for L<Devel::REPL>.
 
 our $VERSION = '1.003027';
 
@@ -34,10 +35,6 @@ __END__
 
 =pod
 
-=head1 NAME
-
-Devel::REPL::Plugin::Peek - L<Devel::Peek> plugin for L<Devel::REPL>.
-
 =head1 SYNOPSIS
 
   repl> #peek "foo"
index bd75cb4..08b6364 100644 (file)
@@ -6,6 +6,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::ReadLineHistory;
+# ABSTRACT: Integrate history with the facilities provided by L<Term::ReadLine>
 
 our $VERSION = '1.003027';
 
@@ -73,9 +74,7 @@ around 'run' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::ReadLineHistory - Integrate history with the facilities provided by L<Term::ReadLine>
+=pod
 
 =head1 DESCRIPTION
 
@@ -112,4 +111,3 @@ L<ReadLineHistory|Devel::REPL::Plugin::ReadHistory>> consistent for expansion wi
 L<Term::ReadLine::Gnu> support or L<Term::ReadLine::Perl>.
 
 =cut
-
index 0b18fed..791c797 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Refresh;
+# ABSTRACT: Reload libraries with Module::Refresh
 
 our $VERSION = '1.003027';
 
@@ -22,12 +23,3 @@ around 'eval' => sub {
 };
 
 1;
-
-__END__
-
-=head1 NAME
-
-Devel::REPL::Plugin::Refresh - reload libraries with Module::Refresh
-
-=cut
-
index 093f8fb..3d2d977 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::ShowClass;
+# ABSTRACT: Dump classes initialized with Class::MOP
 
 our $VERSION = '1.003027';
 
@@ -71,12 +72,3 @@ sub display_class {
 }
 
 1;
-
-__END__
-
-=head1 NAME
-
-Devel::REPL::Plugin::ShowClass - Dump classes initialized with Class::MOP
-
-=cut
-
index 7a55ef2..ad5e3b3 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Timing;
+# ABSTRACT: Display execution times
 
 our $VERSION = '1.003027';
 
@@ -30,9 +31,7 @@ around 'eval' => sub {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Timing - display execution times
+=pod
 
 =head1 SYNOPSIS
 
@@ -53,4 +52,3 @@ Devel::REPL::Plugin::Timing - display execution times
 Shawn M Moore, C<< <sartak at gmail dot com> >>
 
 =cut
-
index 49c6eaf..387f20b 100644 (file)
@@ -1,6 +1,7 @@
 use strict;
 use warnings;
 package Devel::REPL::Plugin::Turtles;
+# ABSTRACT: Generic command creation using a read hook
 
 our $VERSION = '1.003027';
 
@@ -72,9 +73,7 @@ sub match_turtles {
 
 __END__
 
-=head1 NAME
-
-Devel::REPL::Plugin::Turtles - Generic command creation using a read hook
+=pod
 
 =head1 DESCRIPTION
 
@@ -91,4 +90,3 @@ if other uses for that character are needed (e.g., '#' for the
 shell escape character in the PDL shell.
 
 =cut
-
index 4605b31..b2e95da 100644 (file)
@@ -1,4 +1,5 @@
 package Devel::REPL::Profile;
+# ABSTRACT: Code to execute when re.pl starts
 
 our $VERSION = '1.003027';
 
@@ -6,9 +7,10 @@ use Moose::Role;
 requires 'apply_profile';
 use namespace::autoclean;
 
-=head1 NAME
+1;
+__END__
 
-Devel::REPL::Profile - code to execute when re.pl starts
+=pod
 
 =head1 SYNOPSIS
 
@@ -81,10 +83,4 @@ as-is.
 
 Matt S Trout - mst (at) shadowcatsystems.co.uk (L<http://www.shadowcatsystems.co.uk/>)
 
-=head1 LICENSE
-
-This library is free software under the same terms as perl itself
-
 =cut
-
-1;
diff --git a/weaver.ini b/weaver.ini
new file mode 100644 (file)
index 0000000..177d3f9
--- /dev/null
@@ -0,0 +1,9 @@
+[@Author::ETHER]
+
+[AllowOverride / OverrideAuthors]
+header_re = ^AUTHORS?$
+match_anywhere = 1
+
+[AllowOverride / OverrideLegal]
+header_re = ^COPYRIGHT
+match_anywhere = 1