Branch Coverage

blib/lib/Web/Mention.pm
Criterion Covered Total %
branch 79 106 74.5


line true false branch
170 2 35 if ($source->eq($target))
181 0 1 unless (&blessed($request) and $request->can('param'))
189 2 0 if (my $value = $request->param($_))
193 0 2 unless (defined $new_args{$_})
198 0 1 if (@complaints)
212 0 3 unless ($source)
240 22 2 if ($response->content =~ $self->target or $response->content =~ uri_escape($self->target)) { }
264 3 5 unless ($endpoint)
283 0 19 unless $self->is_verified
301 0 0 if ($self->source_mf2_document) { }
314 0 9 unless ($self->source_mf2_document)
319 0 9 unless $item
326 1 8 if ($self->rsvp_type and $self->_check_url_property($item, 'in-reply-to')) { }
1 7 elsif ($self->_check_url_property($item, 'repost-of')) { }
2 5 elsif ($self->_check_url_property($item, 'like-of')) { }
2 3 elsif ($self->_check_url_property($item, 'in-reply-to')) { }
1 2 elsif ($self->_check_url_property($item, 'quotation-of')) { }
358 9 0 if ($self->source_mf2_document)
362 1 8 unless ($item)
367 6 2 if ($item->get_property('content'))
370 6 2 if (defined $raw_content)
371 1 5 if (length $raw_content <= $self->max_content_length)
376 3 4 if (my $summary = $item->get_property('summary'))
380 2 2 if (defined $raw_content)
384 2 0 if (my $name = $item->get_property('name'))
395 9 0 if (my $item = $self->source_mf2_document->get_first('h-entry'))
396 1 8 if (my $rsvp_property = $item->get_property('rsvp'))
397 1 0 if (grep {$_ eq lc $rsvp_property;} @VALID_RSVP_TYPES)
415 3 25 if (&blessed($url_prop) and $url_prop->isa('Web::Microformats2::Item')) { }
422 7 21 if ($url eq $self->target)
434 0 8 unless (defined $content)
451 2 0 if ($self->source_mf2_document)
452 1 1 if (my $item = $self->source_mf2_document->get_first('h-entry'))
453 1 0 if (my $url = $item->get_property('url'))
465 2 0 if ($self->source_mf2_document)
466 1 1 if (my $item = $self->source_mf2_document->get_first('h-entry'))
467 1 0 if (my $time = $item->get_property('published'))
472 1 0 if $dt
489 2 6 if ($response->header('Link'))
493 1 1 if ($relation and $relation eq 'webmention')
500 7 1 unless ($endpoint)
501 6 1 if ($response->header('Content-type') =~ m[^text/html\b])
508 5 0 if defined $endpoint
513 2 6 unless defined $endpoint
518 1 5 if (lc $host eq 'localhost' or $host =~ /^127\.\d+\.\d+\.\d+$/) { }
534 3 0 if ($self->source_mf2_document)
537 2 1 if ($entry)
540 1 2 if ($entry and $name)
554 3 0 if ($title) { }
574 1 0 if ($self->is_tested)
581 1 0 if ($self->source_mf2_document) { }
600 2 0 if (defined $data_ref->{$_})
608 1 0 if (my $mf2_json = $data_ref->{'mf2_document_json'})