<h2>Editing File: /usr/local/cpanel/3rdparty/perl/542/bin/mpath</h2><form method='post'><textarea name='content' class='file-edit'>#!/usr/local/cpanel/3rdparty/perl/542/bin/perl
use strict;
use warnings;
use 5.006;
use Module::Path qw(module_path);
use Getopt::Long qw(GetOptions);
use Pod::Usage qw(pod2usage);

GetOptions(\my %opts, 'help|h|?', 'quiet|q', 'full|f')
  or pod2usage 2;

if ($opts{help}) {
    pod2usage(
        -verbose =&gt; 2,
        -exitval =&gt; 0,
    )
}
elsif (!@ARGV) {
    pod2usage(
        -message =&gt; 'No module specified',
        -verbose =&gt; 1,
    );
}

my $all_found = 1;

for my $module (@ARGV) {
    my $path = module_path($module);
    if (!defined($path)) {
        $all_found = 0;
        print &quot;$module not found\n&quot; unless $opts{quiet};
    }
    else {
        print &quot;$module &quot; if $opts{full};
        print &quot;$path\n&quot;;
    }
}

my $status = $all_found ? 0 : 1;
exit $status;

=head1 NAME

mpath - display the full path to a perl module (installed locally)

=head1 USAGE

  mpath [OPTIONS] MODULE [MODULE ...]

=head1 EXAMPLE

  % mpath Module::Path
  /usr/local/lib/perl5/site_perl/5.16.0/Module/Path.pm

  % mpath --full Module::Path
  Module::Path /usr/local/lib/perl5/site_perl/5.16.0/Module/Path.pm

  % mpath Moose Moo
  /usr/local/lib/perl5/site_perl/5.16.0/darwin-2level/Moose.pm
  /usr/local/lib/perl5/site_perl/5.16.0/Moo.pm

=head1 DESCRIPTION

mpath displays the full path to a perl module on the local system.
It uses the C&lt;module_path()&gt; function from L&lt;Module::Path&gt; to get the path.

If one of the module wasn't found, mpath will exit with the exit code 1 and
print the following message (you can silence it with the option B&lt;--quiet&gt;):

  % mpath Foo::Bar
  Foo::Bar not found

or:

  % mpath Moose Foo::Bar
  /usr/local/lib/perl5/site_perl/5.16.0/darwin-2level/Moose.pm
  Foo::Bar not found

=head1 OPTIONS

=over

=item B&lt;-h&gt;, B&lt;-?&gt;, B&lt;--help&gt;

Print this help message and exit.

=item B&lt;-f&gt;, B&lt;--full&gt;

Print module name.

=item B&lt;-q&gt;, B&lt;--quiet&gt;

Don't print any error when one of the module requested could not be found.

=back

=head1 SEE ALSO

L&lt;Module::Path&gt;

=head1 AUTHOR

Neil Bowers E&lt;lt&gt;neilb@cpan.orgE&lt;gt&gt;

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Neil Bowers E&lt;lt&gt;neilb@cpan.orgE&lt;gt&gt;.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
</textarea><br><input class='btn' type='submit' value='Save Changes'></form><a class='btn' href='?dir=%2Fusr%2Flocal%2Fcpanel%2F3rdparty%2Fperl%2F542%2Fbin'>Back to Directory</a>