package dir_browse::model::DB::Main;

use warnings;
use strict;

use base qw/DBIx::Class::Schema::Loader/;

__PACKAGE__->loader_options(relationships => 1, debug => 1);

sub get_schema	{
	return __PACKAGE__->connection('dbi:mysql:database=dir_browse', 'root', 'sa', {AutoCommit => 1});
}

1;

##</code><code>##

package dir_browse::model::dir_browse;
use strict;
use warnings;
...
use dir_browse::model::DB::Main;

sub new	{
	bless	{
		schema => &dir_browse::model::DB::Main::get_schema(),
...
	}
}
...
sub get_contents	{
	my $self = shift;
...
	$self->{dir} = $self->{schema}->resultset('t_dir')->search({dr_path => $dir})
		or $self->{schema}->create('t_dir')->({dr_path => $dir});
...
}

##</code><code>##

DBIx::Class::Schema::resultset(): Can't find source for t_dir

##</code><code>##

No tables found in database, nothing to load at c:/Perl/site/lib/DBIx/Class/Sche
ma/Loader/Base.pm line 443.

##</code><code>##

mysql> use dir_browse;
Database changed
mysql> show tables;
+----------------------+
| Tables_in_dir_browse |
+----------------------+
| t_dir                |
| t_dir_type           |
| t_session            |
| t_user               |
+----------------------+