File Coverage

lib/HTML/FormWidgets/Cloud.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	5	10	50.0
condition	3	7	42.8
subroutine	5	5	100.0
pod	2	2	100.0
total	58	67	86.5

package HTML::FormWidgets::Cloud;

use strict;
use warnings;
use parent 'HTML::FormWidgets';

__PACKAGE__->mk_accessors( qw( data height width ) );

sub init {
   my ($self, $args) = @_;

   $self->class    ( 'cloud' );
   $self->container( 0  );
   $self->data     ( [] );
   $self->height   ( 18 );
   $self->width    ( undef );
   return;
}

sub render_field {
   my ($self, $args) = @_; my $hacc = $self->hacc; my $html;

   for my $item (@{ $self->data }) {
      my $ref    = $item->{value} || {};
      my $id     = $ref->{id   }  || $item->{tag};
      my $style  = $ref->{style};
      my $href   = $self->uri_for( $ref->{href} );
      my $attrs  = { class => $self->class.'_header fade live_grid',
                     href  => $href || 'javascript:Expand_Collapse()',
                     id    => $id };

      if ($item->{size}) {
         # Assumes 1em = 10px
         my $mult        = 1 + int (10 * $item->{size} / $self->height);
         my $height      = $mult * $self->height;
         my $line_height = (int 0.5 + (100 * $height / $item->{size})) / 1000;

         $style .= 'font-size: '.$item->{size}.'em; ';
         $style .= "line-height: ${line_height}em; ";
         $style .= "height: ${height}px; ";
      }

      $item->{colour} and $style .= 'color: '.$item->{colour}.'; ';
      $style and $attrs->{style}  = $style;

      my $text   = $item->{tag}.'('.$item->{count}.')';
      my $anchor = $hacc->a( $attrs, "\n".$text );

      $attrs     = { class => $self->class.'_header' };
      $html     .= $hacc->div( $attrs, "\n".$anchor )."\n";

      $ref->{href} and next;

      $style     = defined $self->width ? 'width: '.$self->width.'px;' : q();
      $html     .= $hacc->div( { class => $self->class.'_panel',
                                 id    => "${id}Disp",
                                 style => $style }, 'Loading...' );
   }

   return $html;
}

1;

# Local Variables:
# mode: perl
# tab-width: 3
# End: