-#!/usr/bin/perl
+#!/usr/bin/env perl
use strict;
use warnings;
['force' => 'Be forceful with some operations'],
['trace' => 'Turn on DBIx::Class trace output'],
['quiet' => 'Be less verbose'],
- ['debug' => 'Print debug information'],
- ['I:s@' => 'Same as perl\'s -I'],
+ ['I:s@' => 'Same as perl\'s -I, prepended to current @INC'],
)
);
);
}
+# FIXME - lowercasing will eventually go away when Getopt::Long::Descriptive is fixed
if($opts->{i}) {
- $opts->{include_dirs} = delete $opts->{i};
+ require lib;
+ lib->import( @{delete $opts->{i}} );
}
if($opts->{help}) {
- $usage->die();
+ $usage->die();
}
# option compatability mangle