catalyst::helper::model::adaptor(3pm) [debian man page]

Catalyst::Helper::Model::Adaptor(3pm)			User Contributed Perl Documentation		     Catalyst::Helper::Model::Adaptor(3pm)

NAME

       Catalyst::Helper::Model::Adaptor - helper for the incredibly lazy

SYNOPSIS

       Running:

	   ./script/myapp_create.pl model SomeClass Adaptor MyApp::Backend::SomeClass create

       Will create "YourApp::Model::SomeClass" that looks like:

	   package YourApp::Model::SomeClass;
	   use strict;
	   use warnings;
	   use base 'Catalyst::Model::Adaptor';

	   __PACKAGE__->config(
	       class	   => 'MyApp::Backend::SomeClass',
	       constructor => 'create',
	   );

	   1;

       Why you need a script to generate that is beyond me, but here it is.

ARGUMENTS

	  ./script/myapp_create.pl model <model_name> Adaptor <class> [<constructor>]

       You need to sepecify the "model_name" (the name of the model), and "class", the class being adapted.  If "$class->new" isn't going to do
       what you want, pass the name of $class's constructor as "constructor".

AUTHOR

       Jonathan Rockway "<jrockway@cpan.org>"

LICENSE

       This library is free software. You can redistribute it and/or modify it under the same terms as perl itself.

       No copyright claim is asserted over the generated code.

perl v5.10.1							    2010-02-09				     Catalyst::Helper::Model::Adaptor(3pm)

Catalyst::Model::DBI(3pm)				User Contributed Perl Documentation				 Catalyst::Model::DBI(3pm)

NAME

       Catalyst::Model::DBI - DBI Model Class

SYNOPSIS

	       # use the helper
	       create model DBI DBI dsn username password

	       # lib/MyApp/Model/DBI.pm
	       package MyApp::Model::DBI;

	       use base 'Catalyst::Model::DBI';

	       __PACKAGE__->config(
		       dsn	     => 'dbi:Pg:dbname=myapp',
		       password      => '',
		       username      => 'postgres',
		       options	     => { AutoCommit => 1 },
	       );

	       1;

	       my $dbh = $c->model('DBI')->dbh;
	       #do something with $dbh ...

DESCRIPTION

       This is the "DBI" model class.

METHODS

       new Initializes DBI connection

       $self->dbh
	   Returns the current database handle.

       $self->stay_connected
	   Returns a connected database handle.

       $self->connected
	   Returns true if the database handle is active and pingable.

       $self->connect
	   Connects to the database and returns the handle.

       $self->disconnect
	   Executes rollback if AutoCommit is active, disconnects and unsets the database handle.

SEE ALSO

       Catalyst, DBI

AUTHOR

       Alex Pavlovic, "alex.pavlovic@taskforce-1.com"

COPYRIGHT

       Copyright (c) 2005 - 2009 the Catalyst::Model::DBI "AUTHOR" as listed above.

LICENSE

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

perl v5.14.2							    2010-01-28						 Catalyst::Model::DBI(3pm)