1 package DBIx::Class::DB;
3 use base qw/DBIx::Class/;
4 use DBIx::Class::Storage::DBI;
5 use DBIx::Class::ClassResolver::PassThrough;
8 __PACKAGE__->load_components(qw/ResultSetInstance/);
10 *dbi_commit = \&txn_commit;
11 *dbi_rollback = \&txn_rollback;
13 sub storage { shift->storage_instance(@_); }
15 sub resultset_instance {
17 my $table = $class->table_instance->new($class->table_instance);
18 $table->storage($class->storage_instance);
19 $table->result_class($class);
20 return $table->resultset;
25 my $table = $class->table_instance->new($class->table_instance);
26 $table->storage($class->storage_instance);
27 $table->result_class($class);
33 DBIx::Class::DB - Simple DBIx::Class Database connection by class inheritance
39 use base qw/DBIx::Class/;
40 __PACKAGE__->load_components('DB');
42 __PACKAGE__->connection('dbi:...', 'user', 'pass', \%attrs);
44 package MyDB::MyTable;
47 __PACKAGE__->load_components('Core'); # just load this in MyDB if it will always be there
53 This class provides a simple way of specifying a database connection.
59 Sets or gets the storage backend. Defaults to L<DBIx::Class::Storage::DBI>.
63 Sets or gets the class to use for resolving a class. Defaults to
64 L<DBIx::Class::ClassResolver::Passthrough>, which returns whatever you give
65 it. See resolve_class below.
69 __PACKAGE__->mk_classdata('class_resolver' =>
70 'DBIx::Class::ClassResolver::PassThrough');
74 __PACKAGE__->connection($dsn, $user, $pass, $attrs);
76 Specifies the arguments that will be passed to DBI->connect(...) to
77 instantiate the class dbh when required.
82 my ($class, @info) = @_;
83 my $storage = DBIx::Class::Storage::DBI->new;
84 $storage->connect_info(\@info);
85 $class->mk_classdata('storage_instance' => $storage);
90 Begins a transaction (does nothing if AutoCommit is off).
94 sub txn_begin { $_[0]->storage->txn_begin }
98 Commits the current transaction.
102 sub txn_commit { $_[0]->storage->txn_commit }
106 Rolls back the current transaction.
110 sub txn_rollback { $_[0]->storage->txn_rollback }
112 sub resolve_class { return shift->class_resolver->class(@_); }
118 Matt S. Trout <mst@shadowcatsystems.co.uk>
122 You may distribute this code under the same terms as Perl itself.