Notes.pm:

package Notes;
[download]

use strict;
use base 'CGI::Application';
use Notes::DBI;
use CGI::Session;
use CGI::Application::Plugin::TT; # for template toolkit support
use Config::Simple;
#use CGI::Application::Plugin::Config::Simple; # for Config::Simple su
+pport;
#use CGI::Session;
use CGI::Carp qw[fatalsToBrowser]; #DEBUG ONLY
[download]

...
[download]

sub main {
    
    my $self = shift;
    my $config = Config::Simple->new("conf/notes.conf");
    my $session = CGI::Session->load("driver:File", $self->query, { Di
+rectory => $config->param('session_directory') } ) 
         or CGI::Session->new("driver:File", $self->query, { Directory
+ => $config->param('session_directory') } )
         or die CGI::Session->errstr;
    
    ### get a db connection
    my $schema = Note::DBI->connect($config->param('db_data_source'), 
                                    $config->param('db_username'), 
                                    $config->param('db_password'), 
                                    { RaiseError => 1, AutoCommit => 1
+ });
    
    my @all_notes = $schema->resultset('Notes')->all; 
    
    ### create a query for @usernotes, does not actually
    ### execute query
    my $user_notes = $schema->resultset('User')->search(
      { username => $session->param('username') }
    );
    
    # Get all the user's notes
    my @all_user_notes = $user_notes->search_related('notes')->all;
    
    
    return $self->tt_process('main.tt', 
        { 
            c        => $self->query, 
            s        => $session, 
            #a_notes  => \@all_notes,  
            #u_notes  => \@all_user_notes, 
            title    => 'Notes Home' });
    
    
}
[download]

Notes::DBI (main schema class):

package Notes::DBI;
use strict;
use base qw/DBIx::Class::Schema/;
[download]

__PACKAGE__->load_classes();  ## hopefully won't slow things down
[download]

1;
[download]

Notes::DBI::User (user table class)

package Notes::DBI::Users;
use base qw/DBIx::Class/;
__PACKAGE__->load_components(qw/ PK::Auto Core /);
[download]

__PACKAGE__->table('users');
__PACKAGE__->add_columns(
    qw/ 
    userid 
    username 
    password 
    create_date 
    last_here 
    email
    notes_are_private
    /
);
__PACKAGE__->set_primary_key('userid');
__PACKAGE__->has_many( notes => 'Notes::DBI::Notes');
1;
[download]

Notes::DBI::Notes (notes table class):

package Notes::DBI::Notes;
use base qw/DBIx::Class/;
[download]

__PACKAGE__->load_components(qw/ PK::Auto Core /);
__PACKAGE__->table('notes');
__PACKAGE__->add_columns(
    qw/ 
    noteid 
    date
    number
    content
    user 
    private
    class
    /
);
__PACKAGE__->set_primary_key('noteid');
__PACKAGE__->belongs_to( user => 'Notes::DBI::User');
[download]

1;
[download]