-sub generate_content {
- my $self = shift;
- my $format = lc $self->{options}->{output_format};
-
- if (!$self->{columns}) {
- $self->{form}->error('Incorrect usage -- no columns specified');
- }
-
- if ($format eq 'html') {
- return $self->generate_html_content();
-
- } elsif ($format eq 'csv') {
- return $self->generate_csv_content();
-
- } elsif ($format eq 'pdf') {
- return $self->generate_pdf_content();