perlPackages.CatalystViewJSON

# !!! Rewrite this to use View::JSON.

}
sub ts {
	my ($nr, $period) = @_;
	my @arr ;
    	
	
	return @arr;

sub get_info  : Chained('build') PathPart('api/get-info') Args(0) {
    my ($self, $c) = @_;
    my $build = $c->stash->{build};
    # !!! strip the json prefix
    $c->stash->{jsonBuildId} = $build->id;
    $c->stash->{jsonDrvPath} = $build->drvpath;
    $c->stash->{jsonOutPath} = $build->outpath;
    $c->forward('View::JSON');
}

package Hydra::View::JSON;
use base qw(Catalyst::View::JSON);
1;

    }

    },
    'View::JSON' => {
        expose_stash => qr/^json/,
    },
    'Plugin::Session' => {
        expires => 3600 * 24 * 2,
    },