The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!/usr/bin/perl

use strict;
use warnings;
use App::which_package;

# ABSTRACT: Determine which package installed a file
our $VERSION = '0.05'; # VERSION
# PODNAME: which_package


exit App::which_package->main(@ARGV);

__END__

=pod

=head1 NAME

which_package - Determine which package installed a file

=head1 VERSION

version 0.05

=head1 SYNOPSIS

 % which_package /path/to/file [ ... ]

=head1 DESCRIPTION

Print out package information for packages that own a given file.

For each file on the command line this program will print out the
package name and type of package.  It uses L<Alien::Packages> to
do this portably, so it should work, with various limitations, 
portably on a wide variety of platforms (Debian, RedHat and Cygwin
have been tested).

If given a command, C<which_package> will use L<File::Which> to
find the location of that command and use that to query the package
manager for ownership.

=head1 OPTIONS

none, as yet.

=head1 AUTHOR

Graham Ollis <plicease@cpan.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2013 by Graham Ollis.

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