/usr/share/perl5/MooseX/App/Plugin/Man/Command.pm is in libmoosex-app-perl 1.37-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 | # ============================================================================
package MooseX::App::Plugin::Man::Command;
# ============================================================================
use 5.010;
use utf8;
use namespace::autoclean;
use Moose;
use MooseX::App::Command;
use Pod::Perldoc;
command_short_description q(Full manpage);
has 'command' => (
is => 'ro',
isa => 'Str',
predicate => 'has_command',
documentation => q[Command],
traits => ['MooseX::App::Meta::Role::Attribute::Option'],
cmd_type => 'parameter',
cmd_position => 1,
);
sub man {
my ($self,$app) = @_;
my $meta = $app->meta;
my $class;
if ($self->has_command) {
my $return = $meta->command_find($self->command);
# Nothing found
if (blessed $return
&& $return->isa('MooseX::App::Message::Block')) {
return MooseX::App::Message::Envelope->new(
$return,
$meta->command_usage_command($self->meta),
);
}
$class = $meta->command_get($return);
} else {
$class = $meta->name;
}
Class::Load::load_class($class);
my $filename = MooseX::App::Utils::package_to_filename($class);
exec('perldoc',$filename);
#return $MooseX::App::Null::NULL;
}
__PACKAGE__->meta->make_immutable;
1;
|