From e4a0499a5c8b3411c2e31df8b556f18402019de2 Mon Sep 17 00:00:00 2001
From: Craftworks <craftworks.jp+dev@gmail.com>
Date: Tue, 19 Aug 2014 03:29:46 +0900
Subject: [PATCH] added utility function crlf2lf()

---
 lib/Kurious/Util.pm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/lib/Kurious/Util.pm b/lib/Kurious/Util.pm
index 4678047..bd6bb9a 100644
--- a/lib/Kurious/Util.pm
+++ b/lib/Kurious/Util.pm
@@ -3,7 +3,14 @@ package Kurious::Util;
 use Mojo::Base -strict;
 use Exporter::Lite;
 
-our @EXPORT = qw(rows2kv rows2krows);
+our @EXPORT = qw(crlf2lf rows2kv rows2krows);
+
+sub crlf2lf {
+    local $_ = shift;
+    s/\x0D\x0A/\n/go;
+    tr/\x0D\x0A/\n\n/;
+    return $_;
+}
 
 sub rows2kv {
     my ($rows, $key) = @_;