- print '<table>', "\n";
- printf "<caption>%s</caption>\n", $caption;
- for my $num (0 .. $#index) {
- my ($rgb, $name) = split /:/, $index[$num], 3;
- $name ||= $num;
- $name = [ $name, ['#333'] ] if $term eq 'xkcd';
- print '<tr>', colcell($name, $rgb);
+ if (my $colours = $info->{list}) {
+ print '<table>', "\n";
+ printf "<caption>%s</caption>\n", $caption;
+ for my $num (0 .. $#{$colours}) {
+ my ($rgb, $name) = split /:/, $colours->[$num], 3;
+ $name ||= $num;
+ $name = [ $name, ['#333'] ] if $term eq 'xkcd';
+ print '<tr>', colcell($name, $rgb);
+ }
+ print "</table>\n\n";