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 File::Spec;
use Perl::Metrics2;

unless ( defined $ARGV[0] and -d $ARGV[0] ) {
	die("Missing or invalid directory");
}

my $directory = File::Spec->rel2abs($ARGV[0]);
Perl::Metrics2->process_distribution($directory);
exit(0);