File Coverage

blib/lib/WWW/CloudCreator.pm

Criterion	Covered	Total	%
statement	9	72	12.5
branch	0	18	0.0
condition	0	11	0.0
subroutine	3	9	33.3
pod	6	6	100.0
total	18	116	15.5

# $Id: $ $Revision: $ $Source: $ $Date: $

package WWW::CloudCreator;

use strict;
use warnings;

use POSIX qw(ceil floor);

our $VERSION = '1.1';

sub new {
	my ($class, %args) = @_;
	my $self = bless{
		'counts'   => {},
		'smallest' => 8,
		'largest'  => 16,
		'cold'     => '000',
		'hot'      => 'E00',
		%args,
	}, $class;
	return $self;
}

sub add {
	my ( $self, $tag, $count ) = @_;
	if (! $tag || ! $count) { return 0; }
	$self->{counts}->{$tag} = $count;
	return 1;
}

sub gencloud {
	my ($self) = @_;
	my $smallest = $self->{'smallest'} || 8;
	my $largest = $self->{'largest'} || 16;
	my $cold = $self->{'cold'} || '000';
	my $hot = $self->{'hot'} || '000';
	my $counts = $self->{'counts'};
	my @tags = sort { $counts->{$b} <=> $counts->{$a} } keys %{$counts};
	my $ntags = scalar @tags;
	if ($ntags == 0) {
		return q{};
	} elsif ($ntags == 1) {
		my $tag = $tags[0];
		return [ $tag, 1, 'font-size:' . $smallest . q{;} ];
	}
	my $min = $counts->{$tags[-1]};
	my $max = $counts->{$tags[0]};
	my $spread = $max - $min;
	my ($fontspread, $fontstep);
	if ($largest != $smallest) {
		$fontspread = $largest - $smallest;
		if ($spread > 0) {
			$fontstep = $fontspread / $spread;
		} else {
			$fontstep = 0;
		}
	}
	my (@hotarray, @coldarray, @coldval, @hotval, @colorspread, @colorstep);
	if ($hot ne $cold) {
		@hotarray = map { hex $_ } (split //xm, $hot);
		@coldarray = map { hex $_ } (split //xm, $cold);
		for my $i (0 .. 2) {
			push @coldval, hexdec($coldarray[$i]);
			push @hotval, hexdec($hotarray[$i]);
			push @colorspread, ( hexdec($hotarray[$i]) - hexdec($coldarray[$i]) );
			if ($spread > 0) {
				push @colorstep, ( hexdec($hotarray[$i]) - hexdec($coldarray[$i]) ) / $spread;
			} else {
				push @colorstep, '0';
			}
		}
	}
	my (@out);
	foreach my $tag ( sort @tags ) {
		my $fraction = $counts->{$tag} - $min;
		my $fontsize = $smallest + ( $fontstep * $fraction);
		my (@style, $color);
		if ($hot ne $cold) {
			for my $i ( 0 .. 2 ) {
				my $ihex = $coldarray[$i] + ($colorstep[$i] * $fraction);
				my $decihex = dechex( $ihex );
				$color .= $decihex;
			}
		} else { $color = $cold; }
		push @style, 'color: #' . $color . q{;};
		if ($largest != $smallest) {
			push @style, 'font-size: ' . round($fontsize) . 'pt;';
		}
		push @out, [ $tag, $counts->{$tag}, join q{}, @style];
	}
	return @out;
}

sub round { return int $_[0] + .5 * ($_[0] <=> 0); }

sub dechex { return sprintf '%x', $_[0]; }

sub hexdec { return hex $_[0]; }

1;
__END__