#! /usr/bin/perl
use 5.10.0;
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;

Getopt::Long::Configure("require_order");
GetOptions(
    "h|help" => sub { pod2usage(-verbose => 1, -exit => 0) },
    "m|man" => sub { pod2usage(-verbose => 2, -exit => 0,
	-noperldoc => system("perldoc -V >/dev/null 2>&1")) },
) and $ARGV[0] ~~ [qw(save restore fuse check)]
  or pod2usage;

exec "$0." .shift() => @ARGV;


__END__

=head1 NAME

    imager - image backups

=head1 SYNOPSIS

    imager {command} [options] ...
    imager -h|--help
    imager -m|--man

=head1 DESCRIPTION

This tool is the general command to get the 
functions of the imager tool.

=head1 OPTIONS

=over

=item B<-h>|B<--help>

=item B<-m>|B<--man>

The standard help|manpage options.

=back

=head1 COMMANDS

=over

=item save

Save the image. See C<imager save --help> for more information.

=item restore

Restore the image. See C<imager restore --help> for more information.

=item fuse

Do a fuse mount.  See C<imager fuse --help> for more information.

=item check

Check the saved images.  See C<imager check --help> for more information.

=back


=cut
