diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-06-29 00:20:09 +0200 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-06-29 00:20:09 +0200 |
commit | 5551da62c1791549251c09b02a5d02d9bf0a589e (patch) | |
tree | 8895ae1d3be694a33f9bc3c3f2a62b0035f992a3 /bin | |
parent | fa8720d6bdc7794deec076cca2ee22da7ad8ab7c (diff) |
efa: Add little help text, do not launch perldoc on --help
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/efa | 13 |
1 files changed, 10 insertions, 3 deletions
@@ -15,17 +15,24 @@ my $ignore_info = 'Fahrradmitnahme'; my $efa; my ( @from, @to, @via, $from_type, $to_type, $via_type ); my $opt = { - 'help' => sub { exec( 'perldoc', '-F', $0 ) }, + 'help' => \&show_help, + , 'ignore-info' => \$ignore_info, 'from' => \@from, 'to' => \@to, - 'version' => sub { say "efa version $VERSION"; exit 0 }, - 'via' => \@via, + 'version' => sub { say "efa version $VERSION"; exit 0 }, + 'via' => \@via, }; binmode( STDOUT, ':encoding(utf-8)' ); binmode( STDERR, ':encoding(utf-8)' ); +sub show_help { + say 'Usage: efa [options] <from-city> <from-stop> <to-city> <to-stop>'; + say 'See also: man efa'; + exit 0; +} + sub handle_efa_exception { my ($e) = @_; |