#!perl
use warnings;
use strict;

use Getopt::Std;
$Getopt::Std::STANDARD_HELP_VERSION = 1;

use App::gcal;
$main::VERSION = $App::gcal::VERSION;

# PODNAME:  gcal
# ABSTRACT: Command Line Interface to Google Calendar.

# init Getopt::Std
getopts('');

# need at least one argument
unless (@ARGV) {
    Getopt::Std::version_mess( '', 'main' );
    Getopt::Std::help_mess( '', 'main' );

    exit 0;
}

# run
App::gcal::run(@ARGV);

sub HELP_MESSAGE {
    my $fh = shift;
    print $fh
      "\nUsage: $0 [events.ical, 'tomorrow at noon. Lunch with Bob', ...]\n";
}

sub VERSION_MESSAGE {
    my $fh = shift;
    print $fh "$0 version $main::VERSION\n";
}


__END__
=pod

=head1 NAME

gcal - Command Line Interface to Google Calendar.

=head1 VERSION

version 1.113460

=head1 OVERVIEW

For usage, run "gcal --help".

See L<App::gcal> for more information.

=head1 AUTHOR

Andrew Jones <andrew@arjones.co.uk>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Andrew Jones.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut

