#!perl
use strict;
package
  redisp; # tricks pause but not dzil...
# ABSTRACT: Perl redis shell
use App::redisp;
use Getopt::Long;

my %opts;
GetOptions(
  "server=s" => \$opts{host},
  "port=i" => \$opts{port},
  "encoding=s" => \$opts{encoding},
  "help|h" => \$opts{help}
) or App::redisp->usage(1);
App::redisp->usage(2) if $opts{help};

App::redisp->new(
  map +(defined $opts{$_} ? ($_ => $opts{$_}) : ()), %opts)->run;


__END__
=pod

=head1 NAME

redisp - Perl redis shell

=head1 VERSION

version 0.13

=head1 DESCRIPTION

Perl redis shell, see L<App::redisp>.

=head1 AUTHOR

David Leadbeater <dgl@dgl.cx>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by David Leadbeater.

This program is free software. It comes without any warranty, to the extent
permitted by applicable law. You can redistribute it and/or modify it under the
terms of the Beer-ware license revision 42.

=cut

