Perldoc::Server::Controller::Ajax - Catalyst Controller


Perldoc-Server documentation Contained in the Perldoc-Server distribution.

Index


Code Index:

NAME

Top

Perldoc::Server::Controller::Ajax - Catalyst Controller

DESCRIPTION

Top

Catalyst Controller.

METHODS

Top

index

AUTHOR

Top

Jon Allen

LICENSE

Top

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.


Perldoc-Server documentation Contained in the Perldoc-Server distribution.
package Perldoc::Server::Controller::Ajax;

use strict;
use warnings;
use parent 'Catalyst::Controller';

sub clear_most_viewed :Local :Args(0) {
  my ($self, $c) = @_;
  
  $c->session->{counter} = {};
  push @{$c->stash->{openthought}}, {most_viewed => ''};
  $c->detach('View::OpenThoughtTT');
}


1;