From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 20 Feb 2013 19:55:25 +0000 (+0000)
Subject: document
X-Git-Tag: v0.001000~4
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=9aac2337ec999522d41ddbfccb649b0aeaf5e4d6;p=p5sagit%2Flib-with-preamble.git

document
---

diff --git a/lib/lib/with/preamble.pm b/lib/lib/with/preamble.pm
index d71ddf7..a6ad586 100644
--- a/lib/lib/with/preamble.pm
+++ b/lib/lib/with/preamble.pm
@@ -5,6 +5,8 @@ use warnings FATAL => 'all';
 use File::Spec;
 use PerlIO::via::dynamic;
 
+our $VERSION = '0.001000'; # 0.1.0
+
 sub require_with_preamble {
   my ($arrayref, $filename) = @_;
   my (undef, $preamble, @libs) = @$arrayref;
@@ -32,3 +34,107 @@ sub import {
 }
 
 1;
+
+=head1 NAME
+
+lib::with::preamble - invent your own default perl setup
+
+=head1 SYNOPSIS
+
+  use lib::with::preamble 'use v5.16; use strictures 1;', 'lib';
+
+The above will load .pm files from lib/ - but they'll act as if your code
+always started with 'use v5.16; use strictures 1;'.
+
+=head1 USING THIS IN A DISTRIBUTION
+
+To use this in a dist, you'll want to create two files -
+
+  # my/lib.pm
+  use lib::with::preamble 'use v5.16; use strictures 1;', 'lib';
+  1;
+
+  # my/filter
+  print "use v5.16;\nuse strictures 1;\n#line 1\n";
+  while (<STDIN>) { print }
+
+and then tell your Makefile.PL to use the filter -
+
+  WriteMakefile(
+    ...
+    PM_FILTER => 'perl my/filter'
+  );
+
+Then during development instead of doing
+
+  $ perl -Ilib bin/script-to-test
+
+you'll want to do -
+
+  $ perl -Mmy::lib bin/script-to-test
+
+and for prove -
+
+  $ PERL5OPT=-Mmy::lib prove t/some-test.t
+
+but once you run
+
+  $ make
+
+your blib/ will get populated with files that already have your
+preamble added, so
+
+  $ prove -b t/some-test.t
+
+will just work, as will
+
+  $ make test
+
+and when your users install your module, the .pm files will already have
+the preamble at the top, so your installed files will look like
+
+  # My/Foo.pm
+  use v5.16;
+  use strictures 1;
+  # line 1
+  package My::Foo;
+  ...
+
+and everything should work, without you even needing to add this module
+as a dependency.
+
+Patches to document an equivalent for those of you using L<Dist::Zilla>
+(and L<Module::Build>, even if I don't like the bedamned thing) would be
+very welcome.
+
+=head1 WARNING
+
+This is as much a proof of concept as anything else at this point, so the
+interface is NOT guaranteed to be stable. Especially since this is meant
+to be a sort of implicit sugar, and history has proven that other people
+are much better at designing APIs to sugar than I am.
+
+But provided you're using it the way I describe above, the my/filter script
+isn't dependent on anything, so your users will be insulated from that.
+
+So please do have a play around and see if it works for you.
+
+=head1 AUTHOR
+
+mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
+
+=head1 CONTRIBUTORS
+
+None yet. Well volunteered? :)
+
+=head1 COPYRIGHT
+
+Copyright (c) 2013 the lib::with::preamble L</AUTHOR> and L</CONTRIBUTORS>
+as listed above.
+
+=head1 LICENSE
+
+This library is free software and may be distributed under the same terms
+as perl itself.
+
+=cut