Changeset 21986 for lang/perl/Catalyst-View-Spreadsheet-WriteExcel

Timestamp:

10/23/08 19:38:23 (5 years ago)

Author:

mizuno_takaaki

Message:

lang/perl/Catalyst-View-Spreadsheet-WriteExcel?: object method supported

Location:

lang/perl/Catalyst-View-Spreadsheet-WriteExcel/trunk

Files:

• lib/Catalyst/View/Spreadsheet/WriteExcel.pm (modified) (1 diff)
• t/lib/TestApp.pm (modified) (2 diffs)

lang/perl/Catalyst-View-Spreadsheet-WriteExcel/trunk/lib/Catalyst/View/Spreadsheet/WriteExcel.pm

@@ -44 +44 @@
         my $x = 0;
         for my $key (@{$c->stash->{header}}) {
-            $sheet->write_utf16be_string($y, $x, utf8($rec->{$key})->utf16be);
+            my $package = ref $rec;
+            my $data = $package->can($key) ? $rec->$key : $rec->{$key};
+            $sheet->write_utf16be_string($y, $x, utf8($data)->utf16be);
             $x++;
         }

lang/perl/Catalyst-View-Spreadsheet-WriteExcel/trunk/t/lib/TestApp.pm

@@ -20 +20 @@
     my @list = (
         {name => 'mizuno', score => 10,},
-        {name => 'aql', score => 130,},
-        {name => '$B$R$G$*$-(B', score => 200, },
+        TestApp::Data->new({name => 'aql', score => 130,}),
+        TestApp::Data->new({name => '$B$R$G$*$-(B', score => 200, }),
         {name => '$B$N$V$*(B', score => 70, },
     );
@@ -31 +31 @@
 }
 
+package TestApp::Data;
+use base qw/Class::Accessor::Fast/;
+__PACKAGE__->mk_accessors(qw/name score/);
+
 1;