#! /usr/bin/perl
# Here is a very simple sample driver for the DebParse modules.  The
# author's home directory is /home/t/.  If you want to try this sample,
# you'll have to adjust the directory names and filenames herein
# accordingly.
use warnings;
use strict;
use integer;
BEGIN { unshift @INC, '/home/t/Debparse'; }
use AllPkg;

my $src_filename = '/home/t/archive/Sources.orig';
my $bin_filename = '/home/t/archive/Packages.orig';

# $AllPkg::verbosity = 60;

my $all = AllPkg->new( $src_filename, $bin_filename );
$all->select_by_pri();
my @out = $all->analyze_and_report();
print @out;
@out and exit 1;

