#!/usr/bin/perl
use strict;
use warnings;
use FindBin;
use Getopt::Long;
use Pod::Usage;
use lib(File::Spec->catdir($FindBin::Bin, File::Spec->updir, 'lib'));
use Twitter::Shell;
{
my ($config, $version, $help);
# Default config file is expected to be at the current directory
$config = do {
my $file;
foreach my $suffix qw(yml yaml) {
my $test = "config.$suffix";
if (-f $test) {
$file = $test;
last;
}
}
$file;
};
if (! GetOptions(
'--config=s', => \$config,
'--version', => \$version,
'--help' => \$help
)) {
exit 1;
}
if ($version) {
print <<EOM;
twittershell - Access Twitter From Your Command Line
version: $Twitter::Shell::VERSION
EOM
exit 0;
}
if ($help) {
pod2usage(-verbose => 2);
}
Twitter::Shell->new($config)->run;
}
__END__
=head1 NAME
twittershell - Access Twitter From Your Command Line
=head1 SYNOPSIS
twittershell
twittershell -c config.yml
twittershell -v
twittershell -h
# In a config file, specify the following:
# config.yml
---
username: your@email.address
password: password
=head1 DESCRIPTION
twittershell gives you access to Twitter from your command line
=head1 OPTIONS
=head2 --config | -c
Specify the config file to read from. By default, twittershell attempts to read
a config file named config.yml in the current directory
=head2 --version | -v
Print out the version and exit
=head2 --help | -h
Print out this help message and exit
=head1 AUTHOR
Gungho is Copyright (c) 2007 Daisuke Maki <daisuke@endeworks.jp> Endeworks Ltd.
All rights reserved.
=head1 LICENSE
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See http://www.perl.com/perl/misc/Artistic.html
=cut