File Coverage

blib/lib/Whim/Controller/Display.pm

Criterion	Covered	Total	%
statement	28	31	90.3
branch	4	8	50.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	38	47	80.8

package Whim::Controller::Display;
use Mojo::Base 'Mojolicious::Controller';
use Whim::Mention;

use Readonly;
Readonly my $BAD_REQUEST => 400;

sub display {
    my $self = shift;

    return unless $self->_get_wms;

    $self->render('webmentions');
}

sub summarize {
    my $self = shift;

    return unless $self->_get_wms;

    $self->render('summary');
}

sub _get_wms {
    my $self = shift;

    my $url = $self->param('url');

    unless ($url) {
        $self->render(
            status => $BAD_REQUEST,
            text   => 'No "url" parameter found.',
        );
        return;
    }

    # Grab all webmentions, then sort them into a hash-of-lists, keyed on type.
    my @webmentions = $self->whim->fetch_webmentions( { target => $url } );

    my %webmentions;

    # Initialize %webmentions with an empty list for each webmention type that
    # Web::Mention supports (plus one or two extras, perhaps)
    foreach (qw( mention reply like repost quotation rsvp bookmark )) {
        $webmentions{$_} = [];
    }

    for my $wm (@webmentions) {
        unless ( $webmentions{ $wm->type } ) {
            die "Unknown webmention type: " . $wm->type;
        }
        push $webmentions{ $wm->type }->@*, $wm;
    }

    $self->stash->{webmentions}      = \%webmentions;
    $self->stash->{webmention_count} = scalar @webmentions;

    return 1;
}

1;