Marcus Ramberg > DBIx-Class-0.05999_04 > DBIx::Class::Manual::Intro


Annotate this POD


New  14
Open  16
Stalled  12
View/Report Bugs
Source   Latest Release: DBIx-Class-0.08270




So, you are bored with SQL, and want a native Perl interface for your database? Or you've been doing this for a while with Class::DBI, and think there's a better way? You've come to the right place. Let's look at how you can set and use your first native DBIx::Class tree.


Setting it up manually

First, you'll need a base class. It should inherit from DBIx::Class like this:

  package MyApp::DB;
  use base qw/DBIx::Class/;

You will also want to load some of the DBIx::Class components. DBIx::Class::Core provides a good starter set. In addition you'll have to use either DBIx::Class::Schema or DBIx::Class::DB. We'll use DB in this introduction, since it involves less magic. Schema is mostly useful if you want to use multiple database connections.

  __PACKAGE__->load_components(qw/Core DB/);

If you want serial/auto-incrementing primary keys, you should use the DBIx::Class::PK::Auto component for your database. For example, if you're using SQLite add PK::Auto::SQLite to the list:

  __PACKAGE__->load_components(qw/PK::Auto::SQLite Core DB/);

PK::Auto classes exist for many databases; see DBIx::Class::PK::Auto for more information.

Once you've loaded the components, it's time to set up your connection:


This method is similar to the normal DBI connect method, and can take username, password, and DBI attribute hash as well as the DSN.

With that out of the way, we can define our first table class:

  package MyApp::DB::Album;
  use base qw/MyApp::DB/;

Then we specify which table it uses,


and specify which columns it has.

  __PACKAGE__->add_columns(qw/albumid artist title label year/);

This will automatically create accessors for each of the columns, so that you can read/update the values in rows you've retrieved.

Also, you need to tell it which column is the primary key:


If you have a primary key composed of multiple columns, just pass a list instead.

That's pretty much all you need for a basic setup. If you have more advanced needs like using more than one database connection for the same class, see DBIx::Class::Schema.

Using DBIx::Class::Loader

This is an additional class, and not part of the DBIx::Class distribution. Like Class::DBI::Loader, it inspects your database, and automatically creates classes for all the tables in your database. Here's a simple setup:

  package MyApp::DB;
  use DBIx::Class::Loader;

  my $loader = DBIx::Class::Loader->new(
    dsn       => 'dbi:SQLite:/home/me/myapp/my.db',
    namespace => 'MyApp::DB'


This should be equivalent to the manual setup in the section above. DBIx::Class::Loader takes lots of other options. For more information, consult its documentation.

Basic usage

Once you've defined the basic classes, either manually or using DBIx::Class::Loader, you can start interacting with your database. The simplest way to get a record is by primary key:

  my $album = MyApp::DB::Album->find(14);

This will run a SELECT with albumid = 14 in the WHERE clause, and return an instance of MyApp::DB::Album that represents this row. Once you have that row, you can access and update columns:

  $album->title('Physical Graffiti');



Just like with Class::DBI, you do an update to commit your changes to the database:


If needed, you can throw away your local changes like this:

  $album->discard_changes if $album->is_changed;


Adding and removing rows

To create a new record in the database, you can use the create method. It returns an instance of MyApp::DB::Album that can be used to access the data in the new record:

  my $new_album = MyApp::DB::Album->create({ 
    title  => 'Wish You Were Here',
    artist => 'Pink Floyd'

Now you can add data to the new record:


Likewise, you can remove it from the database like this:


You can also remove records without or retrieving first. This operation takes the same kind of arguments as a search.

  # Delete all of Falco's albums
  MyApp::DB::Album->delete({ artist => 'Falco' });

Finding your objects


  # Find all of Santana's albums
  my $rs = MyApp::DB::Album->search({ artist => 'Santana' });


  my $album = $rs->first;
  print $album->title;

Or, you can loop over the albums and update each one:




  # Fetch immediately all of Carlos Santana's albums
  my @albums = MyApp::DB::Album->search({ artist => 'Carlos Santana' });
  foreach my $album (@albums) {

We also provide a handy shortcut for doing a LIKE search:

  # Find albums whose artist starts with 'Jimi'
  my $rs = MyApp::DB::Album->search_like({ artist => 'Jimi%' });

Or you can provide your own handmade WHERE clause, like:

  # Find Peter Frampton albums from the year 1986
  my $rs    = MyApp::DB::Album->search_literal( $where, @bind );


    year    => { '<' => 1980 },
    albumid => [ 1, 14, 15, 65, 43 ]

This results in something like the following WHERE clause:

  WHERE artist != 'Janis Joplin'
    AND year < 1980



    { artist => 'Bob Marley' },

@albums then holds the two most recent Bob Marley albums.



syntax highlighting: