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'],
- ['I:s@' => 'Same as perl\'s -I']
+ ['I:s@' => 'Same as perl\'s -I, prepended to current @INC'],
)
);
);
}
-if($opts->{I}) {
- $opts->{include} = delete $opts->{I};
+# FIXME - lowercasing will eventually go away when Getopt::Long::Descriptive is fixed
+if($opts->{i}) {
+ lib->import(delete $opts->{i});
}
if($opts->{help}) {
if($opts->{connect}) {
$opts->{connect_info} = delete $opts->{connect};
}
-
my $admin = DBIx::Class::Admin->new( %$opts );
-
my $action = $opts->{action};
$action = $opts->{op} if ($action eq 'op');