Catalyst::View::Download::CSV
0.03
# lib/MyApp/View/Download/CSV.pm package MyApp::View::Download::CSV; use base qw( Catalyst::View::Download::CSV ); 1; # lib/MyApp/Controller/SomeController.pm sub example_action_1 : Local { my ($self, $c) = @_; # Array reference of array references. my $data = [ ['col 1','col 2','col ...','col N'], # row 1 ['col 1','col 2','col ...','col N'], # row 2 ['col 1','col 2','col ...','col N'], # row ... ['col 1','col 2','col ...','col N'] # row N ]; # To output your data in comma seperated values pass your array by reference # into a hashref as the key 'data' and then into whatever stash key you have # defined (default is 'csv'). Content passed via the stash must be passed in # a hashref in the key labeled 'data'. $c->stash->{'csv'} = { 'data' => $data }; # Finally forward processing to the CSV View $c->forward('MyApp::View::Download::CSV'); } # Other ways of storing data sub example_action_2 : Local { my ($self, $c) = @_; # Array of array references my @data; push(@data,['col 1','col 2','col ...','col N']); # row 1 push(@data,['col 1','col 2','col ...','col N']); # row 2 push(@data,['col 1','col 2','col ...','col N']); # row ... push(@data,['col 1','col 2','col ...','col N']); # row N # OR to produce a single column of data you can simply do the following my @data = ( 'col 1 row 1', 'col 1 row 2', 'col 1 row ...', 'col 1 row N' ); $c->stash->{'csv'} = { 'data' => \@data }; $c->forward('MyApp::View::Download::CSV'); } # Available Options to produce other types of delimiter seperated output sub example_action_3 : Local { my ($self, $c) = @_; my $data = [ ['col 1','col 2','col ...','col N'], # row 1 ['col 1','col 2','col ...','col N'] # row 2 ]; # You can change any of the aspects of a delimiter seperated values format by change the view configuration # This is an example of tab seperated values for instance $c->view('Download')->config( 'stash_key' => 'data', 'quote_char' => '"', 'escape_char' => '"', 'sep_char' => "\t", 'eol' => "\n", 'binary' => 1, 'allow_loose_quotes' => 1, 'allow_loose_escapes' => 1, 'allow_whitespace' => 1, 'always_quote' => 1 ); $c->stash->{'data'} = { 'data' => $data }; $c->forward('MyApp::View::Download::CSV'); }
Takes a nested array and outputs CSV formatted content.
This method will be called by Catalyst if it is asked to forward to a component without a specified action.
Allows others to use this view for much more fine-grained content generation.
Determines the key in the stash this view will look for when attempting to retrieve data to process. If this key isn't found it will then look at the stash as a whole, find any array references and process them. Data passed into the defined stash_key must be a HASHREF with at least the key 'data' existing with the nested array of data to create a CSV from.
$c->view('MyApp::View::Download::CSV')->config->{'stash_key'} = 'data';
Determines what value will be enclosed within if it contains whitespace or the delimiter character. DEFAULT: '"'
$c->view('MyApp::View::Download::CSV')->config->{'quote_char'} = '/';
Determines what value will be to escape any delimiter's found in a column. DEFAULT: '"'
$c->view('MyApp::View::Download::CSV')->config->{'escape_char'} = '/';
Determines the separator between columns. DEFAULT: ','
$c->view('MyApp::View::Download::CSV')->config->{'sep_char'} = '|';
Any characters defined in eol will be placed at the end of a row. DEFAULT: '\n'
$c->view('MyApp::View::Download::CSV')->config->{'eol'} = '\0';
Travis Chase, <gaudeon at cpan.org>
<gaudeon at cpan.org>
Catalyst Catalyst::View Catalyst::View::Download Text::CSV
Copyright 2011 Travis Chase.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
To install Catalyst::View::Download, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Catalyst::View::Download
CPAN shell
perl -MCPAN -e shell install Catalyst::View::Download
For more information on module installation, please visit the detailed CPAN module installation guide.