The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

MYDan::Util::SQLiteDB - SQLite database interface

SYNOPSIS

 use base qw( MYDan::Util::SQLiteDB );

 my $db = MYDan::Util::SQLiteDBI->new( '/database/file' => @table );

 $db->select( foo => 'name', [ 1, 'bar' ] );

METHODS

column()

Returns table columns.

table()

Returns table names.

create( $table )

Create $table.

insert( $table, @record )

Inserts @record into $table.

dump( $table )

Dump all records from $table.

truncate( $table )

Delete all records from $table.

drop( $table )

Drop $table.

select( $table, $column, %query )

Select $column from $table.

delete( $table, %query )

Delete records from $table.

QUERY

%query consists of ARRAY indexed by column. The first array element is a boolean value that indcates if column is IN or NOT IN the rest of the array elements. i.e.

 x => [ 0, 'foo', 'bar' ], y => [ 1, 'bar', 'baz' ]

means:

 "WHERE x NOT IN ( 'foo','bar' ) AND y IN ( 'bar','baz' )"