Dave Cross: Still Munging Data With Perl: Online event - Mar 17 Learn more

WYANT / Astro-App-Satpass2-0.032 / lib / Astro / App / Satpass2 / Macro / Command.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
114
115
116
117
118
119
120
121
122
123
124
125
126
127

              
package Astro::App::Satpass2::Macro::Command;
use 5.008;
use strict;
use warnings;
use base qw{ Astro::App::Satpass2::Macro };
use Astro::App::Satpass2::Utils qw{ quoter ARRAY_REF };
our $VERSION = '0.032';
sub execute {
    my ( $self, $name ) = @_;
    $self->implements( $name )
        or $self->weep( "'$name' not implemented by this object" );
    my $satpass2 = $self->parent();
    my $output;
    foreach my $cmd ( @{ $self->{def} } ) {
        if ( defined( my $buffer = $satpass2->execute( $cmd ) ) ) {
            $output .= $buffer;
        }
    }
    return $output;
}
sub def {
    my ( $self ) = @_;
    my @def = @{ $self->{def} };
    return wantarray ? @def : \@def;
}
sub init {
    my ( $self ) = @_;
    $self->SUPER::init();
    ARRAY_REF eq ref $self->{def}
        or $self->wail( q{Attribute 'def' must be an array reference} );
    $self->{implements} = { map { $_ => 1 } $self->name() };
    return;
}
# Rewrite level1 macro definitions to level 2 commands. Note that this
# is idempotent.
sub __level1_rewrite {  # TODO get rid of this when level1 support goes away
    my ( $self ) = @_;
    delete $self->{level1}
        and $self->{def} = $self->parent()->__rewrite_level1_macro_def(
        $self->name(), $self->{def} );
    return;
}
1;
__END__
=head1 NAME
Astro::App::Satpass2::Macro::Command - Define a macro which consists of an array of commands
=head1 SYNOPSIS
No user-serviceable parts inside.
=head1 DESCRIPTION
This class is private to the Astro-App-Satpass2 distribution.
Documentation is for the benefit of the author only.
=head1 METHODS
This class provides the following methods overriding those of its
superclass:
=head2 init
The C<def> attribute is checked, and the C<implements> attribute
populated.
=head1 ATTRIBUTES
This class adds the following attributes to the superclass:
=head2 def
This attribute is a reference to an array that contains the commands to
be executed when the macro is called. Substitution is done on these as
required.
The same-named method can be used to access this. The method returns an
array in list context, or an array reference in scalar context. Either
way the return is a copy of the definition; you can not access (and
therefore modify) the commands issued by the macro using the data
returned by this method.
=head1 SEE ALSO
The superclass,
L<Astro::App::Satpass2::Macro|Astro::App::Satpass2::Macro>.
=head1 SUPPORT
Support is by the author. Please file bug reports at
L<http://rt.cpan.org>, or in electronic mail to the author.
=head1 AUTHOR
Thomas R. Wyant, III F<wyant at cpan dot org>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2013-2016 by Thomas R. Wyant, III
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl 5.10.0. For more details, see the full text
of the licenses in the directory LICENSES.
This program is distributed in the hope that it will be useful, but
without any warranty; without even the implied warranty of
merchantability or fitness for a particular purpose.
=cut
# ex: set textwidth=72 :