package Reddit;
use 5.010001;
use strict;
use warnings;
use JSON;
use HTTP::Cookies;
use LWP::UserAgent;
use Moose;
=head1 NAME
Reddit - Perl extension for http://www.reddit.com
See github for t
t.
This module is still largely inprogress.
=head2 Requires
common::sense
LWP::UserAgent
JSON
HTTP::Cookies
For Testing:
Data::Dumper
=head2 EXPORT
None.
=cut
# for testing purpose
ub { $_[0]->api_url . 'vote' },
);
has 'api_type' => (
is => 'ro',
isa => 'Str',
default => 'json',
);
has 'ua' => (
is => 'rw',
isa => 'LWP::UserAgent',
default => sub { LWP::UserA