File Coverage

blib/lib/Mojo/Snoo/Comment.pm

Criterion	Covered	Total	%
statement	7	7	100.0
branch	1	2	50.0
condition			n/a
subroutine	3	3	100.0
pod	0	1	0.0
total	11	13	84.6

package Mojo::Snoo::Comment;
use Moo;

extends 'Mojo::Snoo::Base';

use constant FIELD => 'id';

has id => (
    is  => 'ro',
    isa => sub {
        die "Comment needs ID!" unless $_[0];
    },
    required => 1
);

has [qw( author body )] => (is => 'ro');

has replies => (
    is     => 'rw',
    coerce => sub {
        my $replies = shift;

        # comments without replies contain " "
        my $children = ref($replies) ? $replies->{data}{children} : [];
        return Mojo::Collection->new(
            map {
                $_->{kind} eq 't1'    # unloaded comments have type 'more'
                  ? Mojo::Snoo::Comment->new(%{$_->{data}})
                  : ()
            } @$children
        );
    },
);

# let the user call the constructor using new($comment) or new(id => $comment)
sub BUILDARGS { shift->SUPER::BUILDARGS(@_ == 1 ? (id => shift) : @_) }

1;

__END__