File Coverage

blib/lib/Test/TAP/Model/Subtest/Visual.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	12	12	100.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	3	3	100.0
total	54	56	96.4

#!/usr/bin/perl

package Test::TAP::Model::Subtest::Visual;
use base qw/Test::TAP::Model::Subtest/;

use strict;
use warnings;

use URI;
use URI::file;

sub css_class {
	my $self = shift;
	return "x sk" if $self->skipped;

	my $todo = $self->todo;

	"x " .
	($self->actual_ok
		? ( $todo ? "u" : "p" )
		: ( $todo ? "t" : "f" ))
}

sub popup {
	my $self = shift;
	my $text = join("\n", $self->line, $self->diag);

	{ chomp $text and redo };

	$text;
}

sub link {
	my $self = shift;
	my $file = $self->test_file;
	return URI->new("#") unless $file;

	my $uri = URI::file->new($file);
	$_ and $uri->fragment("line_$_") for $self->test_line;

	return $uri;
}

__PACKAGE__

__END__