The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

TIMKA / e-1.35 / Build.PL 

            

              
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123

              
#!/bin/env perl
use 5.006;
use strict;
use warnings;
use Module::Build;
Module::Build->VERSION( '0.4004' );
my $class = Module::Build->subclass(
    code => q{
        require Cwd;
        #---------------------------------
        #            Build
        #---------------------------------
        sub ACTION_build {
            my ($s) = @_;
            # Only for the maintainer on "Build build".
            if ( $^V >= v5.30.0 ) {
                if ( Cwd::cwd() =~ m{ / git / perlmy / [^/]+ $ }x ) {
                    $s->_update_logo_version();
                    $s->_build_readme();
                }
            }
            $s->SUPER::ACTION_build;
        }
        sub _update_logo_version {
            my ($s) = @_;
            print "Updating log ...\n";
            require lib;
            lib->import();
            require e;
            e->import();
            @ARGV = ( "lib/e.pm" );
            local $^I = "";
            local $\  = "\n";
            while (<ARGV>) {
                chomp;
                my $n =
                / unleashed /x ...
                / ^ =head1 \s+ NAME /x;
                next unless $n and $n == 2;
                s/ v \K \S+ /$e::VERSION/xg;
            }
            continue {
                print;
            }
        }
        sub _build_readme {
            my ($s) = @_;
            my ($installed) =
                grep { -x "$_/pod2markdown" }
                split /:/, $ENV{PATH};
            return if !$installed;
            print "Building README ...\n";
            my $lib = $s->{properties}{dist_version_from};
            system "pod2markdown $lib > README.md";
        }
        #---------------------------------
        #           Install
        #---------------------------------
        sub ACTION_install {
            my ($s) = @_;
            $s->SUPER::ACTION_install;
            # Display logo/image.
            system qq( pod e -q head1=LOGO/Verbatim );
        }
    },
);
my $builder = $class->new(
    module_name        => 'e',
    license            => 'artistic_2',
    dist_author        => q{Tim Potapov <tim.potapov@gmail.com>},
    dist_version_from  => 'lib/e.pm',
    release_status     => 'stable',
    configure_requires => {
        'Module::Build' => '0.4004',
    },
    test_requires => {
        'Test::More' => '0',
    },
    requires => {
        'perl'                  => '5.018',
        'App::Pod'              => '0.39',
        'Data::Printer'         => '0',
        'Data::Trace'           => '1.05',
        'Mojolicious'           => '0',
        'Parallel::ForkManager' => '0',
        'Runtime::Debugger'     => '1.10',
        'Set::Scalar'           => '0',
        'Sub::Util'             => '0',
        'Term::Table'           => '0',
        'Text::CSV_XS'          => '0',
        'Time::Moment'          => '0',
        'Tiny::Prof'            => '0.03',
        'YAML::XS'              => '0',
    },
    add_to_cleanup => [ 'e-*', 'MANIFEST*.bak', 'blib/', 'pod2htmd.tmp' ],
    meta_merge     => {
        resources => {
            bugtracker => 'https://github.com/poti1/e/issues',
            repository => 'https://github.com/poti1/e',
        },
    },
);
$builder->create_build_script();