1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
use strict;
use warnings;
use Module::Build;
my $class = Module::Build->subclass(
class => 'My::Builder',
code => q{
sub ACTION_tarball_name { print shift->dist_dir . ".tar.gz\n" }
sub ACTION_latest_changes {
my $self = shift;
(my $dv = $self->dist_version) =~ s/^v//;
open my $in, '<:raw', 'Changes' or die "Cannot open Changes: $!\n";
open my $out, '>:raw', 'latest_changes.md' or die "Cannot open latest_changes.md: $!\n";
while (<$in>) { last if /^\Q$dv\E\b/ }
print {$out} "Changes for v$dv\n";
while (<$in>) {
last if /^\s*$/;
chomp;
if (s/^\s+-/- /) {
print {$out} "\n";
} else {
s/^\s+/ /;
}
print {$out} $_;
}
$self->add_to_cleanup('latest_changes.md');
}
},
);
$class->new(
module_name => 'URI::db',
license => 'perl',
configure_requires => { 'Module::Build' => '0.30', },
build_requires => {
'Module::Build' => '0.30',
'Test::More' => '0.88',
},
requires => {
'perl' => 5.008001,
'URI' => '1.40',
'URI::Nested' => '0.10',
},
meta_merge => {
resources => {
homepage => 'https://search.cpan.org/dist/URI-db/',
bugtracker => 'https://github.com/theory/uri-db/issues/',
repository => 'https://github.com/theory/uri-db/',
}
},
)->create_build_script;
|
