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

package TestApp;
use strict;
use warnings;

use Catalyst;
use utf8;

our $VERSION = '0.01';
__PACKAGE__->config({
        name => 'TestApp',
        'View::Excel' => {
            expose_stash => 'sheet',
        },
    });

__PACKAGE__->setup;

sub foo : Global {
    my ( $self, $c ) = @_;
    my @list = (
        {name => 'mizuno', score => 10,},
        {name => 'aql', score => 130,},
        {name => '$B$R$G$*$-(B', score => 200, },
        {name => '$B$N$V$*(B', score => 70, },
    );
    $c->stash(
        header => ['name', 'score'],
        sheet => \@list,
    );
    $c->forward('TestApp::View::Excel');
}

1;