Skip Menu |

This queue is for tickets about the Text-CSV_XS CPAN distribution.

Report information
The Basics
Id: 76143
Status: resolved
Priority: 0/
Queue: Text-CSV_XS
People
Owner: Nobody in particular
Requestors: Carl.Johnstone [...] onthebeach.co.uk
Cc:
AdminCc:
Bug Information
Severity: Wishlist
Broken in: (no value)
Fixed in: 0.95

History Show all quoted text
  Thu Mar 29 10:14:34 2012 Carl.Johnstone [...] onthebeach.co.uk - Ticket created
Subject: wishlist: print_hr
Date: Thu, 29 Mar 2012 15:14:32 +0100
To: "bug-Text-CSV_XS [...] rt.cpan.org" <bug-Text-CSV_XS [...] rt.cpan.org>
From: Carl Johnstone <Carl.Johnstone [...] onthebeach.co.uk>
Would it be possible to add a print_hr method to match the getline_hr method? I see it working something like this: sub print_hr { my ($self, $handle, $hashref) = @_; my @out_ary; foreach my $col ($self->column_names) { my $val = undef; if (exists $hashref->{$col} ) { $val = $hashref->{$col} } push(@out_ary,$val); } $self->print($handle, \@out_ary); } Thanks Carl
  Tue Nov 13 04:44:45 2012 HMBRAND [...] cpan.org - Severity Wishlist added
  Sun Jan 13 11:28:56 2013 HMBRAND [...] cpan.org - Correspondence added
It will be in the next release, though your code is overly complicated. My new print_hr function is just a wrapper which translates $csv->print_hr ($io, $ref); to $csv->print ($io, [ map { $ref->{$_} } $csv->column_names ]); adding basic parameter checking
  Sun Jan 13 11:28:57 2013 The RT System itself - Status changed from 'new' to 'open'
  Sun Jan 13 11:28:57 2013 HMBRAND [...] cpan.org - Status changed from 'open' to 'patched'
  Mon Jan 14 01:46:13 2013 HMBRAND [...] cpan.org - Fixed in 0.95 added
  Mon Jan 14 01:46:13 2013 HMBRAND [...] cpan.org - Status changed from 'patched' to 'resolved'