#! /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 compress list)]
  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.

=item compress

Check the compression and decompress or compress. See C<imager
compress --help> for more information.

=item list

List the backups/images available. See C<imager list --help> for more information.

=back


=cut
