view release on metacpan or  search on metacpan

CHANGES  view on Meta::CPAN

1.8 2021-02-04

    Allow customising the content-type header

1.7	2015-10-30

	Include MYMETA.* in MANIFEST.SKIP (requested by CHORNY)

1.6	2015-07-14

	Explicitly check for failures from Text::CSV->new() (which
	silently returns undef on error)
	(reported by Mike W)

lib/Catalyst/View/CSV.pm  view on Meta::CPAN

  $self = $self->next::method ( $app, $config );

  # Record character set
  $self->charset ( $config->{charset} );
  delete $config->{charset};

  # Record suffix
  $self->suffix ( $config->{suffix} );
  delete $config->{suffix};

  # Record content-type
  $self->content_type( $config->{content_type} );
  delete $config->{content_type};

  # Create underlying Text::CSV object
  delete $config->{catalyst_component_name};
  my $csv = Text::CSV->new ( $config )
      or die "Cannot use CSV view: ".Text::CSV->error_diag();
  $self->csv ( $csv );

  return $self;