NAME

Class::DBI::Lite - Lightweight ORM for Perl

SYNOPSIS

Create some database tables:

create table artists (
  artist_id integer primary key autoincrement,
  artist_name varchar(100) not null
);

create table cds (
  cd_id integer primary key autoincrement,
  artist_id integer not null,
  cd_name varchar(100) not null
);


package My::Model;

use base 'Class::DBI::Lite::mysql'; # Or ::SQLite, etc

__PACKAGE__->connection( 'DBI:mysql:dbname:localhost', 'user', 'pass' );

1;# return true:


package My::Artist;

use base 'My::Model';

__PACKAGE__->set_up_table('artists');

__PACKAGE__->has_many(
  cds =>
    'My::CD' =>
      'artist_id'
);

1;# return true:


package My::CD;

use base 'My::Model';

__PACKAGE__->set_up_table('cds');

__PACKAGE__->has_a(
  artist =>
    'My::Artist' =>
      'artist_id'
);

1;# return true:

Then, in your script someplace:

use My::Artist;

my $artist = My::Artist->retrieve( 123 );

foreach my $cd ( $artist->cds )
{
  ...
}# end foreach()

my $cd = $artist->add_to_cds( cd_name => "Attak" );

print $cd->cd_name;
$cd->cd_name("New Name");
$cd->update();

# Delete the artist and all of its CDs:
$artist->delete;

DESCRIPTION

Sometimes Class::DBI is too crufty, and DBIx::Class is too much.

Enter Class::DBI::Lite.

TODO

• Complete tests

• Examples

• Documentation

AUTHOR

Copyright John Drago <jdrago_999@yahoo.com>. All rights reserved.

LICENSE

This software is Free software and may be used and redistributed under the same terms as perl itself.