package Tapper::Reports::Web::Controller::Root; our $AUTHORITY = 'cpan:TAPPER'; $Tapper::Reports::Web::Controller::Root::VERSION = '5.0.13'; use strict; use warnings; use parent 'Catalyst::Controller'; # Sets the actions in this controller to be registered with no prefix # so they function identically to actions created in MyApp.pm __PACKAGE__->config->{namespace} = ''; sub index :Path :Args(0) { my ( $self, $c ) = @_; # the easy way, to avoid fiddling with Mason autohandlers on # simple redirects my $body = < Tapper EOF $c->response->body($body); } sub default :Path { my ( $self, $c ) = @_; $c->response->body( 'Bummer! Page not found' ); $c->response->status(404); } sub end : ActionClass('RenderView') { my ( $self, $or_c ) = @_; if ( !$or_c->response->body && ( $or_c->res->status < 300 || $or_c->res->status > 399 ) && ( $or_c->res->status != 204 ) ) { if ( $or_c->req->params->{json} ) { $or_c->forward('Tapper::Reports::Web::View::JSON'); } else { $or_c->forward('Tapper::Reports::Web::View::Mason'); } } return 1; } 1; __END__ =pod =encoding UTF-8 =head1 NAME Tapper::Reports::Web::Controller::Root =head1 DESCRIPTION [enter your description here] =head1 NAME Tapper::Reports::Web::Controller::Root - Root Controller for Tapper::Reports::Web =head1 METHODS =head2 end Attempt to render a view, if needed. =head1 AUTHOR Steffen Schwigon,,, =head1 LICENSE This program is released under the following license: freebsd =head1 AUTHORS =over 4 =item * AMD OSRC Tapper Team =item * Tapper Team =back =head1 COPYRIGHT AND LICENSE This software is Copyright (c) 2017 by Advanced Micro Devices, Inc.. This is free software, licensed under: The (two-clause) FreeBSD License =cut