Test::TAP::Model::Visual - A result set that will create ::Visual children, and

Test-TAP-HTMLMatrix documentation Contained in the Test-TAP-HTMLMatrix distribution.

Index

Code Index:

NAME

Top

Test::TAP::Model::Visual - A result set that will create ::Visual children, and knows it's color.

SYNOPSIS

Top

	See template

DESCRIPTION

Top

It inherits from Test::TAP::Model::Colorful. That's about it.

METHODS

Top

file_class

This is actually the only functionality. This method is overridden to return Test::TAP::Model::File::Visual. See file_class in Test::TAP::Model for details.

summary

A nice little textual summary about the result of the entire test run.

desc_string

A short descriptive string used to distinguish this model from others in the various consolidated reports.

get_test_files

An overridden version of get_test_files which sets desc_string on the files based on the one from $self.

Test-TAP-HTMLMatrix documentation Contained in the Test-TAP-HTMLMatrix distribution. 
#!/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__