split manifest checking out from preflight and improve
[p5sagit/Distar.git] / lib / Distar.pm
CommitLineData
42e08a83 1package Distar;
362ec4af 2use strict;
3use warnings FATAL => 'all';
42e08a83 4use base qw(Exporter);
ca3b3b8a 5use ExtUtils::MakeMaker ();
6use ExtUtils::MM ();
42e08a83 7
f6286f60 8our $VERSION = '0.002000';
37e295d8 9$VERSION = eval $VERSION;
10
e076eedb 11my $MM_VER = eval $ExtUtils::MakeMaker::VERSION;
12
42e08a83 13our @EXPORT = qw(
be032607 14 author manifest_include readme_generator
42e08a83 15);
16
17sub import {
2852faf3 18 strict->import;
19 warnings->import(FATAL => 'all');
42e08a83 20 shift->export_to_level(1,@_);
21}
22
e076eedb 23sub author {
24 our $Author = shift;
25 $Author = [ $Author ]
26 if !ref $Author;
27}
42e08a83 28
29our @Manifest = (
30 'lib' => '.pm',
7b9318ce 31 'lib' => '.pod',
42e08a83 32 't' => '.t',
33 't/lib' => '.pm',
34 'xt' => '.t',
35 'xt/lib' => '.pm',
1d950b4a 36 '' => qr{[^/]*\.PL},
f1ef306e 37 '' => qr{Changes|MANIFEST|README|LICENSE|META\.yml},
42e08a83 38 'maint' => qr{[^.].*},
39);
40
41sub manifest_include {
42 push @Manifest, @_;
43}
44
6e83c113 45sub readme_generator {
f6286f60 46 die "readme_generator unsupported" if @_ && $_[0];
6e83c113 47}
48
42e08a83 49sub write_manifest_skip {
0fa73f76 50 my ($mm) = @_;
42e08a83 51 my @files = @Manifest;
52 my @parts;
53 while (my ($dir, $spec) = splice(@files, 0, 2)) {
54 my $re = ($dir ? $dir.'/' : '').
55 ((ref($spec) eq 'Regexp')
56 ? $spec
57 : !ref($spec)
58 ? ".*\Q${spec}\E"
a3e39afd 59 # print ref as well as stringification in case of overload ""
42e08a83 60 : die "spec must be string or regexp, was: ${spec} (${\ref $spec})");
61 push @parts, $re;
62 }
0fa73f76 63 my $dist_name = $mm->{DISTNAME};
64 my $include = join '|', map "${_}\$", @parts;
65 my $final = "^(?:\Q$dist_name\E-v?[0-9_.]+/|(?!$include))";
19916679 66 open my $skip, '>', 'MANIFEST.SKIP'
67 or die "can't open MANIFEST.SKIP: $!";
42e08a83 68 print $skip "${final}\n";
69 close $skip;
70}
71
ca3b3b8a 72{
73 package Distar::MM;
9af7ff2e 74 our @ISA = @MM::ISA;
75 @MM::ISA = (__PACKAGE__);
ca3b3b8a 76
77 sub new {
78 my ($class, $args) = @_;
79 return $class->SUPER::new({
180e908e 80 LICENSE => 'perl_5',
53e1282f 81 MIN_PERL_VERSION => '5.006',
0cc25268 82 AUTHOR => ($MM_VER >= 6.5702 ? $Distar::Author : join(', ', @$Distar::Author)),
ca3b3b8a 83 ABSTRACT_FROM => $args->{VERSION_FROM},
4a4bb570 84 %$args,
c194baba 85 test => { TESTS => ($args->{test}{TESTS}||'t/*.t').' xt/*.t xt/*/*.t' },
0a3fdb23 86 realclean => { FILES => (
87 ($args->{realclean}{FILES}||'')
88 . ' Distar/ MANIFEST.SKIP MANIFEST MANIFEST.bak'
89 ) },
ca3b3b8a 90 });
91 }
92
eddb1ce6 93 sub flush {
94 my $self = shift;
0fa73f76 95 Distar::write_manifest_skip($self);
eddb1ce6 96 $self->SUPER::flush(@_);
97 }
98
7efea54c 99 sub special_targets {
100 my $self = shift;
101 my $targets = $self->SUPER::special_targets(@_);
f57289e3 102 my $phony_targets = join ' ', qw(
103 preflight
7b418de8 104 check-version
5baee32c 105 check-manifest
f57289e3 106 releasetest
107 release
108 readmefile
109 distmanicheck
110 nextrelease
111 refresh
112 bump
113 bumpmajor
114 bumpminor
115 );
116 $targets =~ s/^(\.PHONY *:.*)/$1 $phony_targets/m;
7efea54c 117 $targets;
118 }
119
ca3b3b8a 120 sub dist_test {
121 my $self = shift;
8ab5ea70 122
66a2ecde 123 my $include = '';
124 if (open my $fh, '<', 'maint/Makefile.include') {
125 $include = "\n# --- Makefile.include:\n\n" . do { local $/; <$fh> };
126 $include =~ s/\n?\z/\n/;
127 }
b0401762 128
66a2ecde 129 my @bump_targets =
130 grep { $include !~ /^bump$_(?: +\w+)*:/m } ('', 'minor', 'major');
81d518f6 131
66a2ecde 132 my %vars = (
133 REMAKE => join(' ', '$(PERLRUN)', 'Makefile.PL', map { $self->quote_literal($_) } @ARGV),
190976f8 134 BRANCH => $self->{BRANCH} ||= 'master',
9b920c5c 135 CHANGELOG => $self->{CHANGELOG} ||= 'Changes',
66a2ecde 136 );
137
138 join('',
139 $self->SUPER::dist_test(@_),
140 "\n\n# --- Distar section:\n\n",
141 (map "$_ = $vars{$_}\n", sort keys %vars),
142 <<'END',
81d518f6 143
5baee32c 144preflight: check-version check-manifest
9b920c5c 145 $(ABSPERLRUN) Distar/helpers/preflight $(VERSION) --changelog=$(CHANGELOG) --branch=$(BRANCH)
7b418de8 146check-version:
147 $(ABSPERLRUN) Distar/helpers/check-version $(VERSION) $(TO_INST_PM) $(EXE_FILES)
5baee32c 148check-manifest:
149 $(ABSPERLRUN) Distar/helpers/check-manifest
3e632431 150releasetest:
ba5a4b50 151 $(MAKE) disttest RELEASE_TESTING=1 PASTHRU="$(PASTHRU) TEST_FILES=\"$(TEST_FILES)\""
3e632431 152release: preflight releasetest
81d518f6 153 $(RM_RF) $(DISTVNAME)
27dbd26e 154 $(MAKE) $(DISTVNAME).tar$(SUFFIX)
42e08a83 155 git commit -a -m "Release commit for $(VERSION)"
401ece0b 156 git tag v$(VERSION) -m "release v$(VERSION)"
65a1f7d9 157 cpan-upload $(DISTVNAME).tar$(SUFFIX)
2c636792 158 git push origin v$(VERSION) HEAD
5154970c 159distdir: readmefile
75f8311c 160readmefile: create_distdir
161 $(NOECHO) $(MAKE) $(DISTVNAME)/README
f6286f60 162$(DISTVNAME)/README: $(VERSION_FROM)
163 $(NOECHO) $(MKPATH) $(DISTVNAME)
164 pod2text $(VERSION_FROM) >$(DISTVNAME)/README
75f8311c 165 $(NOECHO) cd $(DISTVNAME) && $(ABSPERLRUN) ../Distar/helpers/add-to-manifest README
de048fa8 166disttest: distmanicheck
792c9e91 167distmanicheck: create_distdir
168 cd $(DISTVNAME) && $(ABSPERLRUN) "-MExtUtils::Manifest=manicheck" -e "exit manicheck"
e7a78651 169nextrelease:
9b920c5c 170 $(ABSPERLRUN) Distar/helpers/add-changelog-heading --git $(VERSION) $(CHANGELOG)
0edb27b8 171refresh:
172 cd Distar && git pull
e9f66489 173 $(RM_F) $(FIRST_MAKEFILE)
0edb27b8 174 $(REMAKE)
8ab5ea70 175END
66a2ecde 176 map(sprintf(<<'END', "bump$_", ($_ || '$(V)')), @bump_targets),
177%s:
178 $(ABSPERLRUN) Distar/helpers/bump-version --git $(VERSION) %s
179 $(RM_F) $(FIRST_MAKEFILE)
180 $(REMAKE)
42e08a83 181END
66a2ecde 182 $include,
183 "\n",
184 );
42e08a83 185 }
186}
187
42e08a83 1881;
edb4539a 189__END__
190
191=head1 NAME
192
193Distar - Additions to ExtUtils::MakeMaker for dist authors
194
195=head1 SYNOPSIS
196
197F<Makefile.PL>:
198
199 use ExtUtils::MakeMaker;
200 (do 'maint/Makefile.PL.include' or die $@) unless -f 'META.yml';
201
202 WriteMakefile(...);
203
204F<maint/Makefile.PL.include>:
205
206 BEGIN { -e 'Distar' or system("git clone git://git.shadowcat.co.uk/p5sagit/Distar.git") }
207 use lib 'Distar/lib';
208 use Distar 0.001;
209
210 author 'A. U. Thor <author@cpan.org>';
211
212 manifest_include t => 'test-helper.pl';
213 manifest_include corpus => '.txt';
214
215make commmands:
216
217 $ perl Makefile.PL
218 $ make bump # bump version
219 $ make bump V=2.000000 # bump to specific version
220 $ make bumpminor # bump minor version component
221 $ make bumpmajor # bump major version component
222 $ make nextrelease # add version heading to Changes file
223 $ make releasetest # build dist and test (with xt/ and RELEASE_TESTING=1)
224 $ make preflight # check that repo and file state is release ready
225 $ make release # check releasetest and preflight, then build and
226 # upload to CPAN, tag release, push tag and branch
227
228=head1 DESCRIPTION
229
230L<ExtUtils::MakeMaker> works well enough as development tool for
231builting and testing, but using it to release is annoying and error prone.
232Distar adds just enough to L<ExtUtils::MakeMaker> for it to be a usable dist
233author tool. This includes extra commands for releasing and safety checks, and
234automatic generation of some files. It doesn't require any non-core modules and
235is compatible with old versions of perl.
236
237=head1 FUNCTIONS
238
239=head2 author( $author )
240
241Set the author to include in generated META files. Can be a single entry, or
242an arrayref.
243
244=head2 manifest_include( $dir, $pattern )
245
246Add a pattern to include files in the MANIFEST file, and thus in the generated
247dist files.
248
249The pattern can be either a regex, or a path suffix. It will be applied to the
250full path past the directory specified.
251
252The default files that are always included are: F<.pm> and F<.pod> files in
253F<lib>, F<.t> files in F<t> and F<xt>, F<.pm> files in F<t/lib> and F<xt/lib>,
254F<Changes>, F<MANIFEST>, F<README>, F<LICENSE>, F<META.yml>, and F<.PL> files in
255the dist root, and all files in F<maint>.
256
257=head1 AUTOGENERATED FILES
258
259=over 4
260
261=item F<MANIFEST.SKIP>
262
263The F<MANIFEST.SKIP> will be automatically generated to exclude any files not
264explicitly allowed via C<manifest_include> or the included defaults. It will be
265created (or updated) at C<perl Makefile.PL> time.
266
267=item F<README>
268
269The F<README> file will be generated at dist generation time, inside the built
270dist. It will be generated using C<pod2text> on the main module.
271
272If a F<README> file exists in the repo, it will be used directly instead of
273generating the file.
274
275=back
276
277=head1 MAKE COMMMANDS
278
279=head2 test
280
281test will be adjusted to include F<xt/> tests by default. This will only apply
282for authors, not users installing from CPAN.
283
284=head2 release
285
286Releases the dist. Before releasing, checks will be done on the dist using the
287C<preflight> and C<releasetest> commands.
288
289Releasing will generate a dist tarball and upload it to CPAN using cpan-upload.
290It will also create a git tag for the release, and push the tag and branch.
291
292=head2 preflight
293
294Performs a number of checks on the files and repository, ensuring it is in a
295sane state to do a release. The checks are:
296
297=over 4
298
299=item * All version numbers match
300
301=item * The F<MANIFEST> file is up to date
302
303=item * The branch is correct
304
305=item * There is no existing tag for the version
306
307=item * There are no unmerged upstream changes
308
309=item * There are no outstanding local changes
310
311=item * There is an appropriate staged Changes heading
312
313=item * cpan-upload is available
314
315=back
316
317=head2 releasetest
318
319Test the dist preparing for a release. This generates a dist dir and runs the
320tests from inside it. This ensures all appropriate files are included inside
321the dist. C<RELEASE_TESTING> will be set in the environment.
322
323=head2 nextrelease
324
325Adds an appropriate changelog heading for the release, and prompts to stage the
326change.
327
328=head2 bump
329
330Bumps the version number. This will try to preserve the length and format of
331the version number. The least significant digit will be incremented.
332
333Optionally accepts a C<V> option to set the version to a specific value.
334
335The version changes will automatically be committed. Unstaged modifications to
336the files will be left untouched.
337
338=head2 bumpminor
339
340Like bump, but increments the minor segment of the version. This will treat
341numeric versions as x.yyyzzz format, incrementing the yyy segment.
342
343=head2 bumpmajor
344
345Like bumpminor, but bumping the major segment.
346
347=head2 refresh
348
349Updates Distar and re-runs C<perl Makefile.PL>
350
351=head1 SUPPORT
352
353IRC: #web-simple on irc.perl.org
354
355Git repository: L<git://git.shadowcat.co.uk/p5sagit/Distar>
356
357Git browser: L<http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=p5sagit/Distar.git;a=summary>
358
359=head1 AUTHOR
360
361mst - Matt S. Trout (cpan:MSTROUT) <mst@shadowcat.co.uk>
362
363=head1 CONTRIBUTORS
364
365haarg - Graham Knop (cpan:HAARG) <haarg@cpan.org>
366
367ether = Karen Etheridge (cpan:ETHER) <ether@cpan.org>
368
369frew - Arthur Axel "fREW" Schmidt (cpan:FREW) <frioux@gmail.com>
370
371Mithaldu - Christian Walde (cpan:MITHALDU) <walde.christian@googlemail.com>
372
373=head1 COPYRIGHT
374
375Copyright (c) 2011-2015 the Distar L</AUTHOR> and L</CONTRIBUTORS>
376as listed above.
377
378=head1 LICENSE
379
380This library is free software and may be distributed under the same terms
381as perl itself. See L<http://dev.perl.org/licenses/>.
382
383=cut