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

Creating the database


First, we'll create the application so that we have some place to put our database file. We won't be doing much with Catalyst to start, but we'll need the project eventually:

$ catalyst.pl ChatStat
$ cd ChatStat

Let's get started by creating the tables in SQLite as follows:

$ sqlite3 root/database
CREATE TABLE channels (
  cid INTEGER PRIMARY KEY NOT NULL, channel TEXT NOT NULL
);
CREATE TABLE nicknames (
  nid INTEGER PRIMARY KEY NOT NULL, pid INTEGER NOT NULL,
  nick TEXT NOT NULL, username TEXT NOT NULL, host TEXT NOT NULL
);
CREATE TABLE opinions (
  oid INTEGER PRIMARY KEY NOT NULL, nid INTEGER NOT NULL,
  cid INTEGER NOT NULL, tid INTEGER NOT NULL, message TEXT NOT NULL, reason TEXT NOT NULL, points INTEGER NOT NULL
);
CREATE TABLE people (
  pid INTEGER PRIMARY KEY NOT NULL, name TEXT NOT NULL
);
CREATE TABLE things (
  tid INTEGER PRIMARY KEY NOT NULL, thing TEXT NOT NULL
);
CREATE UNIQUE INDEX channel_channels on channels (channel);
CREATE UNIQUE INDEX hostmask_nicknames...