Yet Another CPAN Grep

POE-Component-IRC-Plugin-WWW-Reddit-TIL ( C/CU/CURTIS/POE-Component-IRC-Plugin-WWW-Reddit-TIL-0.09.tar.gz, CURTIS, 2017; MetaCPAN )

POE-Component-IRC-Plugin-WWW-Reddit-TIL/lib/POE/Component/IRC/Plugin/WWW/Reddit/TIL.pm ( view source; MetaCPAN )

w;
    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}}) {