use utf8;
use strict;
use warnings;
+no warnings 'qw'; # that's not a comment, it's a NUMBER SIGN
use open IO => ':utf8';
our $VERSION = '1.0';
if ($colheads) {
unshift @rows, sprintf '<thead><tr><td>%s<tbody>', join '',
- map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2) }
+ map { sprintf '<th title="%2$s">%s', split(/:/, $_, 2), '', '' }
@$colheads
}