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

Perldoc-Server documentation

Contained in the Perldoc-Server distribution.

Index

NAME
DESCRIPTION
METHODS
- index
AUTHOR
LICENSE

Code Index:

package Perldoc::Server::Controller::Ajax
- clear_most_viewed
EOF

NAME

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

DESCRIPTION

Catalyst Controller.

METHODS

index

AUTHOR

Jon Allen

LICENSE

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;