Book Image

Catalyst 5.8: the Perl MVC Framework

By : Antano Solar John
Book Image

Catalyst 5.8: the Perl MVC Framework

By: Antano Solar John

Overview of this book

<p>Many web applications are implemented in a way that makes developing them difficult and repetitive. Catalyst is an open source Perl-based Model-View-Controller framework that aims to solve this problem by reorganizing your web application to design and implement it in a natural, maintainable, and testable manner, making web development fun, fast, and rewarding.<br /><br />This book teaches you how to use Catalyst to weave the various components involved in a web application, using methods and tools you personally prefer along with recommendations and details on the most popularly used objects like the DBIX ORM, TT2 Template, and Moose.<br /><br />This book will take you from how the MVC pattern simplifies creating quality applications to how Catalyst allows you to tap this power instantly. It explains advanced design patterns and concludes with the improvements that Moose brings to all this. It also incorporates valuable suggestions and feedback received from the community members and our customers. By the end of the book, you will be able to build clean, scalable, and extendable web applications. This book embodies Catalyst's philosophies of Do It Yourself and Don't Repeat Yourself.</p>
Table of Contents (16 chapters)
Catalyst 5.8
Credits
About the Author
About the Reviewer
Preface
7
Hot Web Topics
Index

Searching and paging


Now that our application is starting to accumulate a significant quantity of data, it would be nice to be able to search it. In this section, we'll create an interface for searching addresses and names and displaying the search results. We'll start with a form for defining what the user wants to search for:

Then we'll search and display the results:

The first thing we'll do is create a Search Controller and then write the database logic for searching.

To do this, we'll create lib/AddressBook/Controller/Search.pm. We'll have a single action that will generate a search form and then display results when the form is submitted as follows:

package AddressBook::Controller::Search;
use Moose;
use namespace::autoclean;
BEGIN {extends 'Catalyst::Controller'; }
extends 'Catalyst::Controller::FormBuilder'; 
=head1 NAME
AddressBook::Controller::Search - Catalyst Controller
=head1 DESCRIPTION
Catalyst Controller.
=head1 METHODS
=cut
sub search : Global Form {
  my ($self, $c, $query...