From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PABLROD / Bat-Interpreter-0.025 / lib / Bat / Interpreter / Delegate / Executor / PartialDryRunner.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
112
113

              
package Bat::Interpreter::Delegate::Executor::PartialDryRunner;
use utf8;
use Moo;
use Types::Standard qw(ArrayRef);
use namespace::autoclean;
with 'Bat::Interpreter::Role::Executor';
our $VERSION = '0.025';    # VERSION
has 'commands_executed' => ( is      => 'ro',
                             isa     => ArrayRef,
                             default => sub { [] },
);
sub add_command {
    push @{ shift->commands_executed }, @_;
}
sub execute_command {
    my $self    = shift();
    my $command = shift();
    $self->add_command($command);
    return 0;
}
sub execute_for_command {
    my $self    = shift();
    my $command = shift();
    my $output  = `$command`;
    chomp $output;
    return $output;
}
1;
__END__
=pod
=encoding utf-8
=head1 NAME
Bat::Interpreter::Delegate::Executor::PartialDryRunner
=head1 VERSION
version 0.025
=head1 SYNOPSIS
    use Bat::Interpreter;
    use Bat::Interpreter::Delegate::Executor::PartialDryRunner;
    my $partial_dry_runner = Bat::Interpreter::Delegate::Executor::PartialDryRunner->new;
    my $interpreter = Bat::Interpreter->new(executor => $partial_dry_runner);
    $interpreter->run('my.cmd');
     
    print Dumper($partial_dry_runner->commands_executed);
=head1 DESCRIPTION
This executor tries to get all the commands that are going to be executed, that is, it's like every
command gets "echoed" in the "standard output" as an array of lines
The commands printed can be different to the real execution if the bat/cmd file makes 
some sort of conditional using ERRORLEVEL 
=head1 NAME
Bat::Interpreter::Delegate::Executor::PartialDryRunner - Executor for executing for commands and printing out the rest
=head1 METHODS
=head2 commands_executed
Returns an arrayref to the commands that are going to be executed but not part of a for command (aka: backticks executed in perl)
=head2 add_command
Add a command to the list of commands executed
=head2 execute_command
Execute general commands.
This executor just register the command in the attribute: commands_executed
=head2 execute_for_command
Execute commands for use in FOR expressions.
This is usually used to capture output and
implement some logic inside the bat/cmd file.
This executor executes this commands via perl subshell: ``
=head1 AUTHOR
Pablo Rodríguez González <pablo.rodriguez.gonzalez@gmail.com>
=head1 COPYRIGHT AND LICENSE
This software is Copyright (c) 2022 by Pablo Rodríguez González.
This is free software, licensed under:
  The MIT (X11) License
=cut