The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#!perl -wT
use warnings;
use strict;
use Test::More;

plan skip_all => 'set TEST_POD to enable this test'
    unless $ENV{TEST_POD} || -e 'MANIFEST.SKIP';

eval "use Pod::Coverage 0.19";
plan skip_all => 'Pod::Coverage 0.19 required' if $@;

eval "use Test::Pod::Coverage 1.04";
plan skip_all => 'Test::Pod::Coverage 1.04 required' if $@;

plan skip_all => 'set TEST_POD to enable this test'
  unless ($ENV{TEST_POD} || -e 'MANIFEST.SKIP');

plan tests => 2;

# TODO: I really should add documentation
pod_coverage_ok(
    'POE::Component::Server::Twirc',
    { trustme => [ map qr/^$_$/, qw/
            add_follower_id
            add_user
            are_followers_stale
            bot_notice
            bot_says
            BUILD
            connect_twitter_stream
            DEFAULT
            delete_user
            followers_stale_after
            formatted_status_text
            friends_stale_after
            get_authenticated_user
            get_friends_timeline
            get_replies
            get_statuses
            handle_favorite
            is_follower_id
            is_user_stale
            max_reconnect_delay
            merge_replies
            nicks_alternation
            on_event_block
            on_event_favorite
            on_event_follow
            on_event_list_member_added
            on_event_list_member_removed
            on_event_retweet
            on_event_unblock
            on_event_unfavorite
            post_ircd
            remove_follower_id
            set_topic
            sort_unique_statuses
            START
            status_text_too_long
            twitter
            twitter_error
            twitter_id
            twitter_screen_name
            twitter_stream_timeout
        /],
    },
    'POE::Component::Server::Twirc coverage'
);

pod_coverage_ok(
    'App::Twirc',
    'App::Twirc coverage'
);