1 <table class="miniplot"><tr>
2 % for my $major (@major) {
3 <td><div class="graph">
6 % for my $minor (@minor) {
7 % my $percent = int( 100 * ($data->{$major}{$minor} || 0) / $max );
8 <li class="c<% ($i % 6) + 1%>" style="width: <% $barwidth %>%;
9 left: <% $baroffset + $each * $i %>%;
10 height: <% $percent %>%;"><div class="data"><% $minor %>: <% $percent %>%</div></li>
17 % for my $major (@major) {
18 <th class="legend"><% $major %></th>
23 <table class="miniplot"><tr>
25 % for my $minor (@minor) {
26 <th><span class="demoblock c<% ($i++ % 6) + 1 %>"></span> <% $minor %></th>
41 for my $major (keys %{$data}) {
42 for (keys %{$data->{$major}}) {
44 $max = $data->{$major}{$_} if $data->{$major}{$_} > $max;
48 my @major = $major ? @{$major} : sort keys %{$data};
49 my @minor = $minor ? @{$minor} : sort keys %minor;
51 return unless @minor and @major;
53 my $each = int( (100 / @minor) );
54 my $barwidth = int( (100 / @minor) * (3/4) );
55 my $baroffset = int( (100 / @minor) * (1/8) );