use DBIx::Class::Admin;
my $short_description = "utility for administrating DBIx::Class schemata";
-my $synopsis_text =qq{
+my $synopsis_text =q|
deploy a schema to a database
%c --schema=MyApp::Schema \
--connect='["dbi:SQLite:my.db", "", ""]' \
%c --schema=MyApp::Schema --class=Employee \
--connect='["dbi:SQLite:my.db", "", ""]' \
--op=update --set='{ "name": "New_Employee" }'
-}
-;
+|;
my ($opts, $usage) = describe_options(
"%c: %o",
die "please only use one of --config or --connect-info\n" if ($opts->{config} and $opts->{connect_info});
if($opts->{selfinject_pod}) {
+
+ die "This is an internal method, do not call!!!\n"
+ unless $ENV{MAKELEVEL};
+
$usage->synopsis($synopsis_text);
$usage->short_description($short_description);
exec (