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});
...
}