use DBIx::Class::Admin::Descriptive;
#use Getopt::Long::Descriptive;
use DBIx::Class::Admin;
+require lib;
my $short_description = "utility for administrating DBIx::Class schemata";
my $synopsis_text =q|
['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};
+ lib->import(delete $opts->{i});
}
if($opts->{help}) {