# lib/MyDB.pm
package MyDB;
use strict;
use warnings;
use base qw( DBIx::Class::Schema );

__PACKAGE__->load_namespaces(
    default_resultset_class => 'ResultSet',
);

1;

# lib/MyDB/ResultSet.pm
package MyDB::ResultSet;
use strict;
use warnings;
use base qw( DBIx::Class::ResultSet );

1;

# lib/MyDB/Result.pm
package MyDB::Result;
use strict;
use warnings;
use base qw( DBIx::Class );

__PACKAGE__->load_components(qw(
    FormFu
    InflateColumn::DateTime
    UUIDColumns
    Core
));

1;

##</code><code>##

# lib/MyDB/Result/Article.pm
package MyDB::Result::Article;
use strict;
use warnings;
use base qw( MyDB::Result );

__PACKAGE__->table( 'articles' );
__PACKAGE__->columns(qw( updated_time created_time ));

##</code><code>##

my $schema = MyDB->connect( @connection_info );
my $article = $rs->schema( 'Article' )->new({});

##</code><code>##

# lib/MyDB/ResultSet/Article.pm
package MyDB::ResultSet::Article;
use strict;
use warnings;
use base qw( MyDB::ResultSet );

sub insert_article {
  my ($self, $topic, $parent, $msgtext) = @_;

  eval { $self->txn_do( sub {} ) };
}

1;