File Coverage

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

Criterion	Covered	Total	%
statement	24	24	100.0
branch	1	2	50.0
condition	1	2	50.0
subroutine	8	8	100.0
pod	3	3	100.0
total	37	39	94.8

#!/usr/bin/perl

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

use strict;
use warnings;

use Test::TAP::Model::Colorful;
use Test::TAP::Model::File::Visual;

sub file_class { "Test::TAP::Model::File::Visual" }

sub get_test_files {
	my $self = shift;
	my $str = $self->desc_string;
	map { $_->desc_string($str); $_ } $self->SUPER::get_test_files(@_);
}

sub desc_string {
	my $self = shift;
	$self->{_desc_string} = shift if @_;
	$self->{_desc_string} ||= "";
}

__PACKAGE__

__END__