#!/usr/bin/env perl
#
# This file is part of App-Module-Locate
#
# This software is copyright (c) 2011 by Geistteufel <geistteufel@celogeek.fr>.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

# PODNAME: mlocate
# ABSTRACT: Find module locate by his name


use strict;
use warnings;
our $VERSION = '0.2'; # VERSION
use Module::Locate 'locate';

for my $module(@ARGV) {
    my $filename = locate($module);
    if (defined $filename) {
        print $filename, "\n";
    } else {
        warn "$module no found !\n";
    }
};



=pod

=head1 NAME

mlocate - Find module locate by his name

=head1 VERSION

version 0.2

=head1 SYNOPSIS

  mlocate Redis
  => ...lib/site_perl/5.14.2/Redis.pm

  Edit it :
  vim $(mlocate Redis)

  locate many file :
  mlocate Redis DBI
  => ...lib/site_perl/5.14.2/Redis.pm
  => ...lib/site_perl/5.14.2/DBI.pm

=head1 BUGS

Any bugs or evolution can be submit here :

L<Github|https://github.com/geistteufel/App-Module-Locate>

=head1

=head1 AUTHOR

Geistteufel <geistteufel@celogeek.fr>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Geistteufel <geistteufel@celogeek.fr>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut


__END__