PERLANCAR / ScriptX-0.000004 / script / scriptx-eg-run-code 

            

              
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

              
#!perl
use strict;
use warnings;
use ScriptX 'Run' => {
    code => sub {
        my ($self, $stash) = @_;
        my $name;
        while (1) {
            print "Please enter your name: ";
            chomp($name = <STDIN>);
            if ($name =~ /\S/) {
                last;
            } else {
                print "Wrong response. ";
            }
        }
        my $gender;
        while (1) {
            print "Please enter your gender (M/F): ";
            chomp($gender = <STDIN>);
            if ($gender =~ /^[mf]$/i) {
                last;
            } else {
                print "Wrong response. ";
            }
        }
        print "Hello, ", ($gender =~ /m/i ? "Mr." : "Mrs."), " $name!\n";
    },
};
ScriptX->run;
# ABSTRACT: Run a code
# PODNAME: scriptx-eg-run-code
__END__
=pod
=encoding UTF-8
=head1 NAME
scriptx-eg-run-code - Run a code
=head1 VERSION
This document describes version 0.000004 of scriptx-eg-run-code (from Perl distribution ScriptX), released on 2020-10-01.
=head1 SYNOPSIS
 % script-eg-run-code
 Please enter your name: Budi
 Please enter your gender (M/F): x
 Wrong response. Please enter your gender (M/F): m
 Hello, Mr. Budi!
=head1 DESCRIPTION
This script loads the L<ScriptX::Run> plugin to run something. The plugin
accepts a coderef (C<code>) or a string/array for external command (passed to
L<IPC::System::Options>'s C<system()>). Alternatively, it can search for
C<run()> in the C<main> package. In this script, we provide the second option.
=head1 HOMEPAGE
Please visit the project's homepage at L<https://metacpan.org/release/ScriptX>.
=head1 SOURCE
Source repository is at L<https://github.com/perlancar/perl-ScriptX>.
=head1 BUGS
Please report any bugs or feature requests on the bugtracker website L<https://rt.cpan.org/Public/Dist/Display.html?Name=ScriptX>
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) 2020 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