/usr/share/perl5/CLI/Framework/Command/Meta.pm is in libcli-framework-perl 0.05-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | package CLI::Framework::Command::Meta;
use base qw( CLI::Framework::Command );
our $VERSION = 0.01;
sub new {
my ($class, %args) = @_;
my $app = $args{app};
bless { _app => $app }, $class;
}
# (metacommands know about their application (and thus, the other commands in
# the app))
sub get_app { $_[0]->{_app} }
sub set_app { $_[0]->{_app} = $_[1] }
#-------
1;
__END__
=pod
=head1 NAME
CLI::Framework::Command::Meta - Represent "metacommands" (app-aware commands)
=head1 DESCRIPTION
This class is a subclass of CLI::Framework::Command. It defines
"metacommands", commands that are application-aware (and thus, implicitly
aware of all other commands registered within the application). Metacommands
have methods that set and retrieve a reference to the application within which
they are running.
This class exists as a separate class because, with few exceptions, commands
should be independent of the application they are associated with and should not
affect that application. Metacommands represent the exception to that rule.
In the exceptional cases, your command will inherit from this one instead of
C<CLI::Framework::Command>.
=head1 WHEN TO BUILD METACOMMANDS VS REGULAR COMMANDS
See
L<tutorial advice|CLI::Framework::Tutorial/How can I create an application-aware command?>
on this topic.
=head1 METHODS
=head2 get_app() / set_app( $app )
Retrieve or set the application object associated with a metacommand object.
$app = $command->get_app();
$command->set_app( $app );
=head1 SEE ALSO
L<CLI::Framework::Command>
L<CLI::Framework::Application>
=cut
|