File Coverage

lib/CGI/OptimalQuery/JSON.pm

Criterion	Covered	Total	%
statement	18	32	56.2
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	40	60.0

package CGI::OptimalQuery::JSON;

use strict;
use warnings;
no warnings qw( uninitialized );
use base 'CGI::OptimalQuery::Base';
use CGI();
use JSON::XS();

sub output {
  my $o = shift;
  my $title = $o->{schema}->{title};
  $title =~ s/\W//g;
  my @t = localtime;
  $title .= '_'.($t[5] + 1900).($t[4] + 1).$t[3].$t[2].$t[1];
  $$o{output_handler}->($$o{httpHeader}->(-type => 'application/json', -attachment => "$title.json").'[');
  my @selCols = @{ $o->get_usersel_cols() };
  my $encoder = JSON::XS->new->utf8();
  while(my $rec = $o->fetch()) {
    $$o{output_handler}->($encoder->encode($rec));
  }
  $$o{output_handler}->(']');
  $o->finish();
  return undef;
}

1;