From: Chris Prather <chris@prather.org>
Date: Mon, 4 Jun 2007 09:18:13 +0000 (+0000)
Subject: add comment about YAML::LibYAML
X-Git-Tag: 0_02~5
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ea1890074d79bfd64aaf3e9c9571c0708f684772;p=gitmo%2FMooseX-Storage.git

add comment about YAML::LibYAML
fix cargo cult code
r22129@alice-3:  perigrin | 2007-06-02 11:11:21 -0500
kill buffering so that tests and errors print out cleanly
r22184@alice-3:  perigrin | 2007-06-04 03:28:14 -0500
add an example HTTPD
r22185@alice-3:  perigrin | 2007-06-04 04:16:54 -0500
HTTPD: It works! It Really Works!
---

diff --git a/lib/MooseX/Storage/Format/YAML.pm b/lib/MooseX/Storage/Format/YAML.pm
index 69033c4..08bc3c4 100644
--- a/lib/MooseX/Storage/Format/YAML.pm
+++ b/lib/MooseX/Storage/Format/YAML.pm
@@ -2,6 +2,10 @@
 package MooseX::Storage::Format::YAML;
 use Moose::Role;
 
+# When I add YAML::LibYAML
+# Tests break because tye YAML is invalid...?
+# -dcp
+
 use Best [
     [ qw[YAML::Syck YAML] ], 
     [ qw[Load Dump] ]
@@ -13,8 +17,8 @@ requires 'pack';
 requires 'unpack';
 
 sub thaw {
-    my ( $class, $json, @args ) = @_;
-    $class->unpack( Load($json), @args );
+    my ( $class, $yaml, @args ) = @_;
+    $class->unpack( Load($yaml), @args );
 }
 
 sub freeze {
diff --git a/t/020_basic_yaml.t b/t/020_basic_yaml.t
index ab37909..826e663 100644
--- a/t/020_basic_yaml.t
+++ b/t/020_basic_yaml.t
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-
+$|++;
 use strict;
 use warnings;