From: Peter Rabbitson Date: Tue, 23 Feb 2010 14:13:06 +0000 (+0000) Subject: Whitespace X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=82b0855476d6556d5d3a0ae6ae8c975be077c855;p=dbsrgits%2FDBIx-Class-Historic.git Whitespace --- diff --git a/script/dbicadmin b/script/dbicadmin index d1daa38..ba511ef 100755 --- a/script/dbicadmin +++ b/script/dbicadmin @@ -16,7 +16,7 @@ use DBIx::Class::Admin::Descriptive; 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", "", ""]' \ @@ -26,8 +26,7 @@ my $synopsis_text =qq{ %c --schema=MyApp::Schema --class=Employee \ --connect='["dbi:SQLite:my.db", "", ""]' \ --op=update --set='{ "name": "New_Employee" }' -} -; +|; my ($opts, $usage) = describe_options( "%c: %o",