#!/usr/bin/env perl
use 5.010;
use open qw< :encoding(utf8) :std >;
use Any::Moose;
use Encode qw(decode);
use Bot::Twatterhose;
use namespace::clean -except => 'meta';

# Nothing to see here
__PACKAGE__->meta->make_immutable;

# use utf8 everywhere
$_ = decode('utf8', $_) for @ARGV;

# Set programname
$0 = 'twatterhose';

if ($^O eq 'linux') {
    local $@;
    eval {
        require Sys::Prctl;
        Sys::Prctl::prctl_name('hailo');
    };
}

# Show help if run without arguments
@ARGV = qw(--help) unless @ARGV;

# Hailing frequencies open
Bot::Twatterhose->new_with_options->run;

=encoding utf8

=head1 NAME

twatterhose - Command-line interface to the L<Bot::Twatterhose> Twitter Markov bot

=head1 DESCRIPTION

See the documentation for L<Bot::Twatterhose> for more information.

=head1 AUTHOR

E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@cpan.org>

=head1 LICENSE AND COPYRIGHT

Copyright 2010 E<AElig>var ArnfjE<ouml>rE<eth> Bjarmason <avar@cpan.org>

This program is free software, you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut
