File Coverage

blib/lib/App/which_package.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package App::which_package;

use strict;
use warnings;
use Alien::Packages;
use Path::Class qw( file dir );
use Text::Table;
use File::Which qw( which );

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

my $ap = Alien::Packages->new;

sub main
{
  my($class, @files) = @_;

  unless(@files > 0)
  {
    say STDERR "usage: which_package /path/to/file";
    return 1;
  }

  my $table = Text::Table->new(qw( file package type ));

  my %owners = $ap->list_fileowners(
    map { $_->absolute }
    map { -d $_ ? dir($_) : file($_) }
    map { -e $_ ? $_ : which($_) }
    @files
  );

  my $count = 0;

  foreach my $file (sort keys %owners)
  {
    foreach my $package (sort { $a->{Package} cmp $b->{Package} } @{ $owners{$file} })
    {
      $table->add($file, $package->{Package}, $package->{PkgType});
      $count++;
    }
  }

  if($count > 0)
  {
    print $table;
    return 0;
  }
  else
  {
    return 2;
  }
}

1;

__END__