The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

PERLANCAR / App-PDRUtils-0.122 / lib / App / PDRUtils / DistIniCmd / dec_prereq_version_to.pm 

            

              
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

              
package App::PDRUtils::DistIniCmd::dec_prereq_version_to;
our $DATE = '2021-05-25'; # DATE
our $VERSION = '0.122'; # VERSION
use 5.010001;
use strict;
use warnings;
use App::PDRUtils::Cmd;
use App::PDRUtils::DistIniCmd;
use App::PDRUtils::DistIniCmd::_modify_prereq_version;
our %SPEC;
$SPEC{handle_cmd} = {
    v => 1.1,
    summary => 'Decrease prereq version to a specified version',
    args => {
        %App::PDRUtils::DistIniCmd::common_args,
        %App::PDRUtils::Cmd::mod_args,
        %App::PDRUtils::Cmd::mod_ver_args,
    },
};
sub handle_cmd {
    App::PDRUtils::DistIniCmd::_modify_prereq_version::_modify_prereq_version(
        'dec_to', @_);
}
1;
# ABSTRACT: Decrease prereq version to a specified version
__END__
=pod
=encoding UTF-8
=head1 NAME
App::PDRUtils::DistIniCmd::dec_prereq_version_to - Decrease prereq version to a specified version
=head1 VERSION
This document describes version 0.122 of App::PDRUtils::DistIniCmd::dec_prereq_version_to (from Perl distribution App-PDRUtils), released on 2021-05-25.
=head1 FUNCTIONS
=head2 handle_cmd
Usage:
 handle_cmd(%args) -> [$status_code, $reason, $payload, \%result_meta]
Decrease prereq version to a specified version.
This function is not exported.
Arguments ('*' denotes required arguments):
=over 4
=item * B<module>* => I<str>
=item * B<module_version>* => I<str>
=item * B<parsed_dist_ini>* => I<obj>
=back
Returns an enveloped result (an array).
First element ($status_code) is an integer containing HTTP status code
(200 means OK, 4xx caller error, 5xx function error). Second element
($reason) is a string containing error message, or "OK" if status is
200. Third element ($payload) is optional, the actual result. Fourth
element (%result_meta) is called result metadata and is optional, a hash
that contains extra information.
Return value:  (any)
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/App-PDRUtils>.
=head1 SOURCE
Source repository is at L<https://github.com/perlancar/perl-App-PDRUtils>.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=App-PDRUtils>
When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.
=head1 AUTHOR
perlancar <perlancar@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2021, 2019, 2018, 2017, 2016 by perlancar@cpan.org.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut