File Coverage

Makefile.PL
Criterion Covered Total %
statement 7 72 9.7
branch 0 48 0.0
condition 0 12 0.0
subroutine 3 8 37.5
pod n/a
total 10 140 7.1


line stmt bran cond sub pod time code
1             # -*- mode: perl; c-basic-offset: 4; indent-tabs-mode: nil; -*-
2              
3 1     1   365 use strict;
  1         2  
  1         27  
4 1     1   641 use ExtUtils::MakeMaker qw(WriteMakefile);
  1         89024  
  1         1086  
5             # See lib/ExtUtils/MakeMaker.pm for details of how to influence
6             # the contents of the Makefile that is written.
7              
8             # Normalize version strings like 6.30_02 to 6.3002,
9             # so that we can do numerical comparisons on it.
10             my $eumm_version = $ExtUtils::MakeMaker::VERSION;
11             $eumm_version =~ s/_//;
12              
13             my $module = 'Mojo::OBS::Client';
14             (my $main_file = "lib/$module.pm" ) =~ s!::!/!g;
15             (my $distbase = $module) =~ s!::!-!g;
16             my $distlink = $distbase;
17              
18             my @tests = map { glob $_ } 't/*.t', 't/*/*.t';
19              
20             my %module = (
21             NAME => $module,
22             AUTHOR => q{Max Maischein },
23             VERSION_FROM => $main_file,
24             ABSTRACT_FROM => $main_file,
25             META_MERGE => {
26             "meta-spec" => { version => 2 },
27             resources => {
28             repository => {
29             web => "https://github.com/Corion/$distlink",
30             url => "git://github.com/Corion/$distlink.git",
31             type => 'git',
32             },
33             bugtracker => {
34             web => "https://github.com/Corion/$distbase/issues",
35             # mailto => 'meta-bugs@example.com',
36             },
37             license => "https://dev.perl.org/licenses/",
38             },
39             dynamic_config => 0, # we promise to keep META.* up-to-date
40             x_static_install => 1, # we are pure Perl and don't do anything fancy
41             },
42              
43             MIN_PERL_VERSION => '5.012', # I use // and say() in some places
44              
45             'LICENSE'=> 'perl',
46              
47             PL_FILES => {},
48             BUILD_REQUIRES => {
49             'ExtUtils::MakeMaker' => 0,
50             },
51              
52             PREREQ_PM => {
53             'Filter::signatures' => '0.09',
54             'Mojo::UserAgent' => 0,
55             'Encode' => 0,
56             'Mojo::JSON' => 0,
57             'Net::Protocol::OBSRemote' => 0,
58             'Future::Mojo' => 0,
59             'Carp' => 0,
60             },
61             TEST_REQUIRES => {
62             'Test::More' => 0,
63             },
64              
65             dist => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
66             clean => { FILES => "$distbase-*" },
67              
68             test => { TESTS => join( ' ', @tests ) },
69             );
70              
71             # This is so that we can do
72             # require 'Makefile.PL'
73             # and then call get_module_info
74              
75 1     1   10 sub get_module_info { %module }
76              
77             if( ! caller ) {
78             # I should maybe use something like Shipwright...
79             regen_README($main_file);
80             regen_EXAMPLES() if -d 'examples';
81             WriteMakefile1(get_module_info);
82             };
83              
84             1;
85              
86             sub WriteMakefile1 { #Written by Alexandr Ciornii, version 0.21. Added by eumm-upgrade.
87 0     0     my %params=@_;
88 0           my $eumm_version=$ExtUtils::MakeMaker::VERSION;
89 0           $eumm_version=eval $eumm_version;
90 0 0         die "EXTRA_META is deprecated" if exists $params{EXTRA_META};
91 0 0         die "License not specified" if not exists $params{LICENSE};
92 0 0 0       if ($params{BUILD_REQUIRES} and $eumm_version < 6.5503) {
93             #EUMM 6.5502 has problems with BUILD_REQUIRES
94 0 0         $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{BUILD_REQUIRES}} };
  0            
  0            
95 0           delete $params{BUILD_REQUIRES};
96             }
97 0 0 0       if ($params{TEST_REQUIRES} and $eumm_version < 6.64) {
98 0 0         $params{PREREQ_PM}={ %{$params{PREREQ_PM} || {}} , %{$params{TEST_REQUIRES}} };
  0            
  0            
99 0           delete $params{TEST_REQUIRES};
100             }
101 0 0         delete $params{CONFIGURE_REQUIRES} if $eumm_version < 6.52;
102 0 0         delete $params{MIN_PERL_VERSION} if $eumm_version < 6.48;
103 0 0         delete $params{META_MERGE} if $eumm_version < 6.46;
104 0 0         delete $params{META_ADD} if $eumm_version < 6.46;
105 0 0         delete $params{LICENSE} if $eumm_version < 6.31;
106 0 0         delete $params{AUTHOR} if $] < 5.005;
107 0 0         delete $params{ABSTRACT_FROM} if $] < 5.005;
108 0 0         delete $params{BINARY_LOCATION} if $] < 5.005;
109              
110 0           WriteMakefile(%params);
111             }
112              
113             sub regen_README {
114             # README is the short version that just tells people what this is
115             # and how to install it
116 0     0     eval {
117             # Get description
118 0           my $readme = join "\n",
119             pod_section($_[0], 'NAME', 'no heading' ),
120             pod_section($_[0], 'DESCRIPTION' ),
121             <
122              
123             INSTALLATION
124              
125             This is a Perl module distribution. It should be installed with whichever
126             tool you use to manage your installation of Perl, e.g. any of
127              
128             cpanm .
129             cpan .
130             cpanp -i .
131              
132             Consult https://www.cpan.org/modules/INSTALL.html for further instruction.
133             Should you wish to install this module manually, the procedure is
134              
135             perl Makefile.PL
136             make
137             make test
138             make install
139              
140             INSTALL
141             pod_section($_[0], 'REPOSITORY'),
142             pod_section($_[0], 'SUPPORT'),
143             pod_section($_[0], 'TALKS'),
144             pod_section($_[0], 'KNOWN ISSUES'),
145             pod_section($_[0], 'BUG TRACKER'),
146             pod_section($_[0], 'CONTRIBUTING'),
147             pod_section($_[0], 'SEE ALSO'),
148             pod_section($_[0], 'AUTHOR'),
149             pod_section($_[0], 'LICENSE' ),
150             pod_section($_[0], 'COPYRIGHT' ),
151             ;
152 0           update_file( 'README', $readme );
153             };
154             # README.mkdn is the documentation that will be shown as the main
155             # page of the repository on Github. Hence we recreate the POD here
156             # as Markdown
157 0           eval {
158 0           require Pod::Markdown;
159              
160 0           my $parser = Pod::Markdown->new();
161              
162             # Read POD from Module.pm and write to README
163 0           $parser->parse_from_file($_[0]);
164 0           my $readme_mkdn = <as_markdown;
165              
166             [![Windows](https://github.com/Corion/$distbase/workflows/windows/badge.svg)](https://github.com/Corion/$distbase/actions?query=workflow%3Awindows)
167             [![MacOS](https://github.com/Corion/$distbase/workflows/macos/badge.svg)](https://github.com/Corion/$distbase/actions?query=workflow%3Amacos)
168             [![Linux](https://github.com/Corion/$distbase/workflows/linux/badge.svg)](https://github.com/Corion/$distbase/actions?query=workflow%3Alinux)
169              
170             STATUS
171 0           update_file( 'README.mkdn', $readme_mkdn );
172             };
173             }
174              
175             sub pod_section {
176 0     0     my( $filename, $section, $remove_heading ) = @_;
177 0 0         open my $fh, '<', $filename
178             or die "Couldn't read '$filename': $!";
179              
180             my @section =
181 0           grep { /^=head1\s+$section/.../^=/ } <$fh>;
  0            
182              
183             # Trim the section
184 0 0         if( @section ) {
185 0 0         pop @section if $section[-1] =~ /^=/;
186 0 0         shift @section if $remove_heading;
187              
188             pop @section
189 0   0       while @section and $section[-1] =~ /^\s*$/;
190             shift @section
191 0   0       while @section and $section[0] =~ /^\s*$/;
192             };
193              
194 0           @section = map { $_ =~ s!^=\w+\s+!!; $_ } @section;
  0            
  0            
195 0           return join "", @section;
196             }
197              
198             sub regen_EXAMPLES {
199 0     0     my $perl = $^X;
200 0 0         if ($perl =~/\s/) {
201 0           $perl = qq{"$perl"};
202             };
203 0           (my $example_file = $main_file) =~ s!\.pm$!/Examples.pm!;
204 0           my $examples = `$perl -w examples/gen_examples_pod.pl`;
205 0 0         if ($examples) {
206 0           warn "(Re)Creating $example_file\n";
207 0           $examples =~ s/\r\n/\n/g;
208 0           update_file( $example_file, $examples );
209             };
210             };
211              
212             sub update_file {
213 0     0     my( $filename, $new_content ) = @_;
214 0           my $content;
215 0 0         if( -f $filename ) {
216 0 0         open my $fh, '<:raw:encoding(UTF-8)', $filename
217             or die "Couldn't read '$filename': $!";
218 0           local $/;
219 0           $content = <$fh>;
220             };
221              
222 0 0         if( $content ne $new_content ) {
223 0 0         if( open my $fh, '>:raw:encoding(UTF-8)', $filename ) {
224 0           print $fh $new_content;
225             } else {
226 0           warn "Couldn't (re)write '$filename': $!";
227             };
228             };
229             }