#!/usr/bin/env perl

#
# Test an IRC::Ebooks bot.
#
# Author: Tom Ryder <tom@sanctum.geek.nz>
#
package IRC::Ebooks::Test;

# Force me to write this properly
use warnings;
use strict;
use utf8;
use autodie;

# Everything's UTF-8
use utf8::all;

# Require Perl v5.14
use 5.014;

# Import required modules
use Carp;
use Config::Tiny;
use Getopt::Long::Descriptive;

# Our custom module
use IRC::Ebooks;

# Declare package version
our $VERSION = 0.1;

# Set options
my ( $opt, $usage ) = describe_options(
    'irc-ebooks-feed %o [IRCLOGFILE ...]',
    [
        'config|c=s',
        'configuration file',
        { default => '/etc/irc-ebooks.conf' },
    ],
    [ 'help', 'print usage message and exit' ],
);

# Give help if needed
if ( $opt->help ) {
    print {*STDOUT} $usage->text
      or carp q{Couldn't write to stdout};
    exit;
}

# Read configuration
my $config = Config::Tiny->read( $opt->config )
  or croak sprintf q{Couldn't read configuration file %s}, $opt->config;

# Create IRC::Ebooks object
my $irc_ebooks = IRC::Ebooks->new($config)
  or croak q{Failed to create IRC::Ebooks object};

# Have him respond to each line of standard input
while (<>) {
    chomp;
    say $irc_ebooks->reply($_);
}