File Coverage

blib/lib/Tweet/ToDelicious/Entity/OnTweet.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	4	4	100.0
condition			n/a
subroutine	9	10	90.0
pod	0	4	0.0
total	51	57	89.4

package Tweet::ToDelicious::Entity::OnTweet;

use v5.14;
use warnings;
use parent 'Tweet::ToDelicious::Entity::Interface';
use List::MoreUtils qw(uniq);
use Log::Minimal;
use Class::Accessor::Lite (
    new => 1,
    ro  => [qw(text in_reply_to_screen_name)],
);

sub screen_name { $_[0]->{user}->{screen_name} }

sub urls {
    my $self = shift;
    state @urls;
    @urls = uniq( map $_->{expanded_url}, @{ $self->{entities}->{urls} } );
    return @urls;
}

sub tags {
    my $self = shift;
    my @tags = map $_->{text}, @{ $self->{entities}->{hashtags} };
    my $text = $self->text;
    my (@from_text) = $text =~ m/\[([^\]]+?)\]/g;
    return uniq( @tags, @from_text, $self->{favorited} ? 'favorite' : () );
}

sub posts {
    my $self = shift;
    my @urls = $self->urls;
    my @posts;
    if ( @urls > 0 ) {
        my $tags = join ',', $self->tags, 'via:tweet2delicious';
        my $text = $self->text;
        for my $url (@urls) {
            push @posts,
                {
                url         => $url,
                tags        => $tags,
                description => $text,
                replace     => 1
                };
        }
    }
    return @posts;
}
1;