File Coverage

blib/lib/POE/Component/IRC/Plugin/WWW/Reddit/TIL.pm

Criterion	Covered	Total	%
statement	26	44	59.0
branch	1	4	25.0
condition	0	3	0.0
subroutine	7	10	70.0
pod	0	4	0.0
total	34	65	52.3

package POE::Component::IRC::Plugin::WWW::Reddit::TIL;

use 5.010;
use strict;
use warnings;

our $VERSION = '0.09';

use POE::Component::IRC::Plugin qw( :ALL );
use Mojo::UserAgent;

sub new {
    my $package = shift;
    return bless {}, $package;
}

sub PCI_register {
    my ($self, $irc) = splice @_, 0, 2;

    $irc->plugin_register($self, 'SERVER', qw(public));
    return 1;
}

# This is method is mandatory but we don't actually have anything to do.
sub PCI_unregister {
    return 1;
}

sub S_public {
    my ($self, $irc) = splice @_, 0, 2;

    # Parameters are passed as scalar-refs including arrayrefs.
    my $nick    = (split /!/, ${$_[0]})[0];
    my $channel = ${$_[1]}->[0];
    my $msg     = ${$_[2]};

    my $reply = $msg =~ /^!til\b/i && $self->_get_TIL;

    if ($reply) {
        $irc->yield(privmsg => $channel => "$nick: $reply");
        return PCI_EAT_PLUGIN;
    }

    # Default action is to allow other plugins to process it.
    return PCI_EAT_NONE;
}

sub _get_TIL {
    my $ua = Mojo::UserAgent->new;
    my @posts;

    my $json = $ua->get('https://www.reddit.com/r/todayilearned.json')->res->json;

    # Children are posts in reddit world.
    foreach my $post (@{$json->{data}{children}}) {
        my %info = (
            url    => 'https://reddit.com/' . $post->{data}{id},
            title => $post->{data}{title},
        );
        push @posts, \%info;
    }
    unless (@posts) {
        warn q@Found no posts! Something's probably wrong.@;
        return;
    }

    my $random = $posts[rand @posts];
    return $random->{title} . ' ' . $random->{url};
}

1;

__END__