The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
NAME
    CGI::Application::Plugin::DBIC::Schema - Easy DBIx::Class access from
    CGI::Application, inspired by CGI::Application::Plugin::DBH.

SYNOPSIS
     use CGI::Application::Plugin::DBIC::Schema (qw/dbic_config schema resultset rs/);

    sub cgiapp_init{

            my $c = shift;

            my $dsn = $c->param('dsn');
            my $dbpw = $c->param('dbpw');
            my $dbuser = $c->param('dbuser');

            # Provide a default config.

            $c->dbic_config({schema=>"My::DB",                  # DBIC class
                             connect_info=>[$dsn,$dbuser,$dbpw] # use same args as DBI connect
                            });

            # Or, provide additional configs by name.

            $c->dbic_config("another_config",
                            {schema=>"My::Other::DB",
                             connect_info=>[$dsn,$dbuser,$dbpw]
                            });
    }

    sub setup {

            my $c = shift;

            $c->start_mode('runmode1');
            $c->run_modes([qw/runmode1 runmode2/]);
    }

    sub runmode1 {

            my $c = shift;

            my $id = $c->param('id);
            $c->resultset("My::DB::DemoTable")->find($id);
            
        # do something with the object ...

            return "found it.";
    }

    sub runmode2 {

            my $c = shift;
            
        $c->schema()->resultset("My::DB::DemoTable")
                ->create({name=>"John Doe", address=>"Any Street"});

            return "created it";
    }

DESCRIPTION
    CGI::Application::Plugin::DBIC::Schema adds easy access to a
    DBIx::Class::Schema to your CGI::Application modules. Lazy loading is
    used to prevent a database connection from being made if the "schema"
    method is not called during the request. In other words, the database
    connection is not created until it is actually needed.

METHODS
  schema()
    This method will return the default DBIx::Class::Schema instance if no
    name is provided. Provide a schema name to retrieve an alternate schema.
    The schema instance is created on the first call to this method, and any
    subsequent calls will return the same instance.

  dbic_config()
    Used to provide your DBIx::Class::Schema class name, an optional config
    name, and DBI connection parameters.

    The recommended place to call "dbic_config" is in the "cgiapp_init"
    stage of CGI::Application. If this method is called after the dbic()
    method has already been accessed, then it will die with an error
    message.

  resultset
    This method provides DBIx::Class::Resultset access.

       # Use the default dbic schema via 'resultset'. 

       $c->resultset("DBICT::Result::Test")->find($id);


       # Or use a named config to access resultset via an alternative schema.

       $c->resultset('another_config', "DBICT::Result::Test")->find($id);

       # Or use alias short form, 'rs' with default config

       $c->rs("DBICT::Result::Test")->find($id);

       # Or use alias short form with alternate config/schema

       $c->rs('yet_another_schema', "DBICT::Result::Test")->find($id);

  rs
    An alias to resultset

SEE ALSO
    DBIx::Class, Titanium, CGI::Application,CGI::Application::Plugin::DBH,
    perl(1)

AUTHOR
    Gordon Van Amburg <gordon@minipeg.net>

LICENSE
    Copyright (C) 2009 Gordon Van Amburg <gordon@minipeg.net>

    This library is free software. You can modify and or distribute it under
    the same terms as Perl itself.