From f5b20972b78d6de4ab665534d6d376126c42f6f4 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Wed, 23 Jun 2010 18:32:06 +0200
Subject: [PATCH] dump undef or NULL values as \N

This is compatibile with PostgreSQL dump file format, and allows
us to correctly align columns for export to gnuplot
---
 lib/MojoFacets/Data.pm | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/lib/MojoFacets/Data.pm b/lib/MojoFacets/Data.pm
index ac7dc21..047886d 100644
--- a/lib/MojoFacets/Data.pm
+++ b/lib/MojoFacets/Data.pm
@@ -748,11 +748,16 @@ sub items {
 		foreach my $f ( 0 .. $#$filtered ) {
 			print $fh join("\t", map {
 				my $i = $data->{items}->[ $filtered->[$f] ];
-				if ( ref $i->{$_} eq 'ARRAY' ) {
-					join(',', @{ $i->{$_} });
+				my $v = '\N';
+				if ( ! defined $i->{$_} ) {
+					# nop
+				} elsif ( ref $i->{$_} eq 'ARRAY' ) {
+					$v =join(',', @{ $i->{$_} });
+					$v = '\N' if length($v) == 0;
 				} else {
-					dump $i->{$_};
+					$v = dump $i->{$_};
 				}
+				$v;
 			} @columns),"\n";
 		}
 		close($fh);
-- 
2.20.1