insert column names in first line of export

commented with # in first column, and tab-delimited

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index d9c1dfd..b0cc4fa 100644 (file)
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -812,6 +812,7 @@ sub items {
        if ( $self->param('export') ) {
                my $export_path = $self->_export_path( 'items', @columns);
                open(my $fh, '>', $export_path) || die "ERROR: can't open $export_path: $!";
+               print $fh "#",join("\t",@columns),"\n";
                foreach my $f ( 0 .. $#$filtered ) {
                        print $fh join("\t", map {
                                my $i = $data->{items}->[ $filtered->[$f] ];