NAME

Norma::DB - Easy interface to fundamental data access and table definition operations in DBI

SYNOPSIS

  use Norma::DB;

  my $db = Norma::DB->initialize(
      dsn => 'dbi:mysql:database=testdb',
      username => 'dbuser',
      password => 'dbpassword',
  );

  my $id = $db->insert(
      table_name => 'recipes',
      values => {
          title => "Scrambled Eggs",
          instructions => 'Break two eggs into a bowl...',
          date_added => sub { 'NOW()' },
          ...
      }
  );

  $db->update(
      table_name => 'recipes',
      values => { title => "Delicious Scrambled Eggs" },
      where => "id = 1",
  );

  my $recipe = $db->select(
      table_name => 'recipes', 
      where => "id = 1",
  );

  $db->delete(
      table_name => 'recipes',
      where => "id = 1",
  );

METHODS

initialize( dsn => $dsn, username => $username, password => $password )

Set up an instance, given some connection criteria and authentication info. Alternatively, pass in an existing database handle as "dbh" if you already have one.

insert( table_name => $table_name, values => {...} )

Insert a row, given a table name and values for the row. Values will be escaped using DBI::quote except for subref values. Values that are references to subs will be executed, and their return value subtituted in for that column, useful for calling database functions (e.g. date_created => sub { 'NOW()' }). Returns the primary id for the inserted row.

merge( table_name => $table_name, values => {...} )

Similar to insert, but only insert the row if it's not already there (i.e., if it doesn't break a unique constraint). Values are processed as they are in insert(). Return criteria to select the row, whether it was inserted or already there. Implemented nicely in a single query for MySQL, less elegantly for SQLite.

update( table_name => $table_name, values => {...}, where => $where_condition )

Update rows in a table, given values to update, and matching criteria. Values are processed as they are in insert() Returns the number of rows affected.

delete( table_name => $table_name, where => $where_condition )

Delete rows in a table, given criteria. Returns number of rows affected.

select( table_name => $table_name, where => $where_condition )

Select rows from a table, given criteria.

get_table_definition( table_name => $table_name )

Get a table definition, given a table name

get_table_primary_key_field_names( table_name => $table_name )

Get primary key field names, given a table name.

get_table_key_field_names( table_name => $table_name )

Get names of columns that have single-column unique/primary indexes, given a table name

Database-Specific Drivers

DBI is great, but it doesn't cover everything. Norma::DB is augmented by database-specific drivers in order to support some bits of functionality like merge() and get_table_key_field_names()

Norma::DB::MySQL provides support for MySQL Norma::DB::SQLite provides support for SQLite3

AUTHOR

David Chester <davidchester@gmx.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2010-2011 by David Chester.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

cpanm Norma

perl -MCPAN -e shell
install Norma