File Coverage

blib/lib/Reddit/Client/VotableThing.pm

Criterion	Covered	Total	%
statement	15	25	60.0
branch	0	2	0.0
condition			n/a
subroutine	5	10	50.0
pod	5	5	100.0
total	25	42	59.5

package Reddit::Client::VotableThing;

use strict;
use warnings;
use Carp;

require Reddit::Client::Thing;

use base   qw/Reddit::Client::Thing/;
use fields qw/ups downs likes score edited type is_original_content/;

# likes may be true, false, or null, based on user vote
sub set_likes {
    my ($self, $value) = @_;
    $self->set_bool('likes', $value) if defined $value;
}

sub vote {
    my ($self, $direction) = @_;
    $self->{session}->vote($self->{name}, $direction);
}

sub comment {
    my ($self, $comment) = @_;
    $self->{session}->submit_comment(parent_id => $self->{name}, text => $comment);
}

sub save {
    my $self = shift;
    $self->{session}->save($self->{name});
}

sub unsave {
    my $self = shift;
    $self->{session}->unsave($self->{name});
}

1;

__END__