| Subject: | dbicadmin script needs pod::usage |
dbicdump has no usage messages. add pod::usage.
| Subject: | dbicdump_podusage.patch |
Index: script/dbicdump
===================================================================
--- script/dbicdump (revision 6777)
+++ script/dbicdump (working copy)
@@ -39,6 +39,9 @@
use strict;
use warnings;
use Getopt::Long;
+
+use Pod::Usage;
+
use DBIx::Class::Schema::Loader qw/ make_schema_at /;
require DBIx::Class::Schema::Loader::Base;
@@ -47,7 +50,8 @@
GetOptions( 'loader-option|o=s%' => \&handle_option );
$loader_options->{dump_directory} ||= '.';
-my ($schema_class, @loader_connect_info) = @ARGV;
+my ($schema_class, @loader_connect_info) = @ARGV
+ or pod2usage(1);
sub handle_option {
my ($self, $key, $value) = @_;