File Coverage

blib/lib/Mojo/Snoo/Link.pm

Criterion	Covered	Total	%
statement	13	43	30.2
branch	1	14	7.1
condition	0	3	0.0
subroutine	5	13	38.4
pod	1	7	14.2
total	20	80	25.0

package Mojo::Snoo::Link;
use Moo;

extends 'Mojo::Snoo::Base';

use Mojo::Collection;
use Mojo::Snoo::Comment;

use constant FIELD => 'name';

has [
    qw(
      approved_by
      archived
      author
      author_flair_css_class
      author_flair_text
      banned_by
      clicked
      created
      created_utc
      distinguished
      domain
      downs
      edited
      from
      from_id
      from_kind
      gilded
      hidden
      id
      is_self
      likes
      link_flair_css_class
      link_flair_text
      media
      media_embed
      mod_reports
      name
      num_comments
      num_reports
      over_18
      permalink
      removal_reason
      report_reasons
      saved
      score
      secure_media
      secure_media_embed
      selftext
      selftext_html
      stickied
      subreddit
      subreddit_id
      suggested_sort
      thumbnail
      title
      ups
      url
      user_reports
      visited
      )
] => (is => 'ro', predicate => 1);

sub BUILDARGS { shift->SUPER::BUILDARGS(@_ == 1 ? (id => shift) : @_) }

sub _get_comments {
    my $cb;    # callback optional
    my ($self, $limit, $sort, $time) = map {    #
        ref($_) eq 'CODE' && ($cb = $_) ? () : $_;
    } @_;

    my $path = '/comments/' . $self->id;

    my %params;
    $params{sort}  = $sort  if $sort;
    $params{t}     = $time  if $time;
    $params{limit} = $limit if $limit;

    my $res = $self->_do_request('GET', $path, %params);
    $res->$cb if $cb;

    my @children =
      map { $_->{kind} eq 't1' ? $_->{data} : () }
      map { @{$_->{data}{children}} } @{$res->json};

    my %args = map { $_ => $self->$_ } (
        qw(
          username
          password
          client_id
          client_secret
          )
    );

    Mojo::Collection->new(map { Mojo::Snoo::Comment->new(%args, %$_) } @children);
}

sub _vote {
    my ($self, $direction) = @_;

    my %params = (
        dir => $direction,
	id => $self->name,
    );

    $self->_do_request('POST', '/api/vote', %params);
}

# defaults to comments_hot?
# TODO pass params:
# http://www.reddit.com/dev/api#GET_comments_{article}
sub comments { shift->_get_comments(@_) }

sub upvote   { shift->_vote(1)  }
sub downvote { shift->_vote(-1) }
sub unvote   { shift->_vote(0)  }

# TODO support category (gold accounts only)
sub save {
    my $self = shift;
    $self->_do_request('POST', '/api/save', id => $self->name);
}

# TODO support category (gold accounts only)
sub unsave {
    my $self = shift;
    $self->_do_request('POST', '/api/unsave', id => $self->name);
}

1;

__END__