#!/usr/bin/perl

# Usage: checkdeps.pl SCRIPT
# Check Perl script's dependencies

use Module::ExtractUse;

use strict;

my $script = $ARGV[0] or die "Usage: $0 SCRIPT\n";

open SCRIPT, $script or die "$!\n";
my $code = join "", <SCRIPT>;
close SCRIPT;

my $p = Module::ExtractUse -> new;
$p -> extract_use(\$code);

my @used = $p -> array;

foreach my $module(@used) {
        eval "use $module";
        next if !$@;
        print $module."\n";
}