From: Peter Rabbitson <ribasushi@cpan.org>
Date: Thu, 28 Feb 2013 07:55:51 +0000 (+0100)
Subject: terse
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=refs%2Fheads%2Fdebug%2Fcollapser_cref_op_deparse;p=dbsrgits%2FDBIx-Class-Historic.git

terse
---

diff --git a/t/resultset/rowparser_internals.t b/t/resultset/rowparser_internals.t
index 5bdebac..a828b01 100644
--- a/t/resultset/rowparser_internals.t
+++ b/t/resultset/rowparser_internals.t
@@ -702,6 +702,18 @@ is_same_src (
   'Multiple has_many on multiple branches with underdefined root, HRI-direct torture test',
 );
 
+use B::Terse;
+my $w = B::Terse::compile(
+  $schema->source ('CD')->_mk_row_parser({
+    eval => 1,
+    inflate_map => $infmap,
+    collapse => 1,
+  }),
+);
+
+$w->();
+
+
 done_testing;
 
 my $deparser;