gistfile1.pl

package File::Find::Rule::Dpkg;

# must get back to this at some point.

use strict;
use warnings;
use vars qw/$VERSION/;
use base 'File::Find::Rule';

$VERSION = '0.01';

sub File::Find::Rule::in {
  my $self = shift;
  my $package = shift;

  chomp( my @files = `dpkg -L $package` );
  return @files;
}

1;