Perldoc::Server::Controller::Index::Modules - Catalyst Controller

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

Index

Code Index:

NAME

Top

Perldoc::Server::Controller::Index::Modules - 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::Index::Modules;

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


sub index :Path :Args(1) {
  my ($self, $c, $search) = @_;
  
  my @modules = sort {uc $a cmp uc $b} $c->model('Index')->find_modules($search);
  
  $c->stash->{modules}       = \@modules;
  $c->stash->{title}         = "Modules ($search)";
  $c->stash->{page_template} = 'index_modules.tt';
  $c->stash->{breadcrumbs}   = [ {url=>$c->uri_for('/index/modules'), name=>'Modules'} ];
  $c->stash->{page_name}     = $search;
}



1;