File Coverage

blib/lib/Siesta/DBI.pm

Criterion	Covered	Total	%
statement	29	30	96.6
branch	7	10	70.0
condition			n/a
subroutine	5	5	100.0
pod	1	2	50.0
total	42	47	89.3

use strict;
package Siesta::DBI;
use Siesta::Config;
use base 'Class::DBI::BaseDSN';
__PACKAGE__->set_db( 'Main', @Siesta::Config::STORAGE );
__PACKAGE__->mk_classdata('load_alias');

=head1 NAME

Siesta::DBI - base class extending Class::DBI

=head1 DESCRIPTION

most things in the system will be a subclass of Siesta::DBI, giving

=head1 METHODS

=head2 load_alias( $name )

Sets the load_alias of a class to be $name.  This is used in
conjunction with ->load to provide a shortcut to a serialised item.

=head2 load( $id_or_name )

Attempt to retrieve an object using either it's well-known name or the
row id.

It's used like so:

 package User;
 use base 'Siesta::DBI';
 __PACKAGE__->load_alias( 'email' );

 # time passes ...
 my $user =  User->load( '[e-mail]';

=cut

sub load {
    my $class = shift;
    my $id = shift;
    if ($id =~ /^\d+$/) {
        return $class->retrieve($id);
    }
    my ($item) = $class->search( $class->load_alias => $id );
    return unless $item;
    return $item;
}


=head1 init_db

run the database creation script that lives in __DATA__

=cut

sub init_db {
    my $class = shift;
    my $dbh = $class->db_Main;
    my $sql = join ( '', () );

    for my $statement (split /;/, $sql) {
        if ($dbh->{Driver}{Name} eq 'SQLite') {
            $statement =~ s/auto_increment//g;
            $statement =~ s/,?FOREIGN .*$//mg;
            $statement =~ s/TYPE=INNODB//g;
        }
        $statement =~ s/\#.*$//mg; # strip # comments
        next unless $statement =~ /\S/;
        eval { $dbh->do($statement) };
        die "$@: $statement" if $@;
    }
    return 1;
}


1;
__DATA__