Branch Coverage

blib/lib/Web/Mention.pm
Criterion Covered Total %
branch 87 108 80.5


line true false branch
171 2 39 if ($source->eq($target))
182 0 1 unless (&blessed($request) and $request->can('param'))
190 2 0 if (my $value = $request->param($_))
194 0 2 unless (defined $new_args{$_})
199 0 1 if (@complaints)
213 0 3 unless ($source)
241 25 2 if ($response->content =~ $self->target or $response->content =~ uri_escape($self->target)) { }
265 3 5 unless ($endpoint)
284 1 22 unless $self->is_verified
302 4 1 if ($self->source_mf2_document) { }
315 0 10 unless ($self->source_mf2_document)
320 0 10 unless $item
327 1 9 if ($self->rsvp_type and $self->_check_url_property($item, 'in-reply-to')) { }
1 8 elsif ($self->_check_url_property($item, 'repost-of')) { }
2 6 elsif ($self->_check_url_property($item, 'like-of')) { }
2 4 elsif ($self->_check_url_property($item, 'in-reply-to')) { }
1 3 elsif ($self->_check_url_property($item, 'quotation-of')) { }
359 10 0 if ($self->source_mf2_document)
363 1 9 unless ($item)
368 7 2 if ($item->get_property('content'))
371 7 2 if (defined $raw_content)
372 2 5 if (length $raw_content <= $self->max_content_length)
377 3 4 if (my $summary = $item->get_property('summary'))
381 2 2 if (defined $raw_content)
385 2 0 if (my $name = $item->get_property('name'))
396 10 0 if (my $item = $self->source_mf2_document->get_first('h-entry'))
397 1 9 if (my $rsvp_property = $item->get_property('rsvp'))
398 1 0 if (grep {$_ eq lc $rsvp_property;} @VALID_RSVP_TYPES)
416 3 25 if (&blessed($url_prop) and $url_prop->isa('Web::Microformats2::Item')) { }
423 7 21 if ($url eq $self->target)
435 0 8 unless (defined $content)
452 2 0 if ($self->source_mf2_document)
453 1 1 if (my $item = $self->source_mf2_document->get_first('h-entry'))
454 1 0 if (my $url = $item->get_property('url'))
466 2 0 if ($self->source_mf2_document)
467 1 1 if (my $item = $self->source_mf2_document->get_first('h-entry'))
468 1 0 if (my $time = $item->get_property('published'))
473 1 0 if $dt
490 2 6 if ($response->header('Link'))
494 1 1 if ($relation and $relation eq 'webmention')
501 7 1 unless ($endpoint)
502 6 1 if ($response->header('Content-type') =~ m[^text/html\b])
509 5 0 if defined $endpoint
514 2 6 unless defined $endpoint
519 1 5 if (lc $host eq 'localhost' or $host =~ /^127\.\d+\.\d+\.\d+$/) { }
535 5 0 if ($self->source_mf2_document)
538 4 1 if ($entry)
541 1 4 if ($entry and $name)
555 5 0 if ($title) { }
585 2 1 if ($self->is_tested)
594 2 0 if ($self->source_mf2_document) { }
616 5 1 if (defined $data_ref->{$_})
622 2 1 if ($data_ref->{'author'})
629 2 1 if (my $mf2_json = $data_ref->{'mf2_document_json'})