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(@_); }
17 DBIx::Class::DB - Simple DBIx::Class Database connection by class inheritance
23 use base qw/DBIx::Class/;
24 __PACKAGE__->load_components('DB');
26 __PACKAGE__->connection('dbi:...', 'user', 'pass', \%attrs);
28 package MyDB::MyTable;
31 __PACKAGE__->load_components('Core'); # just load this in MyDB if it will always be there
37 This class provides a simple way of specifying a database connection.
43 Sets or gets the storage backend. Defaults to L<DBIx::Class::Storage::DBI>.
47 Sets or gets the class to use for resolving a class. Defaults to
48 L<DBIx::Class::ClassResolver::Passthrough>, which returns whatever you give
49 it. See resolve_class below.
53 __PACKAGE__->mk_classdata('class_resolver' =>
54 'DBIx::Class::ClassResolver::PassThrough');
58 __PACKAGE__->connection($dsn, $user, $pass, $attrs);
60 Specifies the arguments that will be passed to DBI->connect(...) to
61 instantiate the class dbh when required.
66 my ($class, @info) = @_;
67 my $storage = DBIx::Class::Storage::DBI->new;
68 $storage->connect_info(\@info);
69 $class->mk_classdata('storage_instance' => $storage);
74 Begins a transaction (does nothing if AutoCommit is off).
78 sub txn_begin { $_[0]->storage->txn_begin }
82 Commits the current transaction.
86 sub txn_commit { $_[0]->storage->txn_commit }
90 Rolls back the current transaction.
94 sub txn_rollback { $_[0]->storage->txn_rollback }
96 sub resolve_class { return shift->class_resolver->class(@_); }
102 Matt S. Trout <mst@shadowcatsystems.co.uk>
106 You may distribute this code under the same terms as Perl itself.