From 226355bc0f1feeffbc86dc12ac62952215da6b8b Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 25 Oct 2006 17:16:14 +0000 Subject: [PATCH] Nicer rendering --- lib/ZOOM/IRSpy/Task/Retrieve.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lib/ZOOM/IRSpy/Task/Retrieve.pm b/lib/ZOOM/IRSpy/Task/Retrieve.pm index 0583386..e0ed1f4 100644 --- a/lib/ZOOM/IRSpy/Task/Retrieve.pm +++ b/lib/ZOOM/IRSpy/Task/Retrieve.pm @@ -1,4 +1,4 @@ -# $Id: Retrieve.pm,v 1.1 2006-10-25 15:45:29 mike Exp $ +# $Id: Retrieve.pm,v 1.2 2006-10-25 17:16:14 mike Exp $ package ZOOM::IRSpy::Task::Retrieve; @@ -51,7 +51,9 @@ sub run { sub render { my $this = shift(); - return ref($this) . "(" . $this->{rs}. ", " . $this->{index0} . ")"; + my $syntax = $this->{options}->{preferredRecordSyntax}; + $syntax = defined $syntax ? "'$syntax'" : "undef"; + return ref($this) . "(" . $this->{index0} . ", $syntax)"; } use overload '""' => \&render; -- 1.7.10.4