File Coverage

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

Criterion	Covered	Total	%
statement	22	22	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	33	33	100.0

#!/usr/bin/perl

package Test::TAP::Model::Colorful;

use strict;
use warnings;

use Test::TAP::Model;
use Test::TAP::Model::File;

# yucky mixin behavior
BEGIN {
	push @Test::TAP::Model::ISA, __PACKAGE__;
	push @Test::TAP::Model::File::ISA, __PACKAGE__;
}

sub color {
	my $self = shift;

	my $ratio = $self->ratio;

	my $l= 100;
	if ($ratio == 1){
		return "#00ff00";
	} else {
		return sprintf("#ff%02x%02x", $l + ((255 - $l) * $ratio), $l-20);
	}
}

sub color_css {
	my $self = shift;
	return "background-color: " . $self->color;
}

__PACKAGE__

__END__