Otogiri - A lightweight medicine for using database
use Otogiri; my $db = Otogiri->new(connect_info => ['dbi:SQLite:...', '', '']); my $row = $db->insert(book => {title => 'mybook1', author => 'me', ...}); print 'Title: '. $row->{title}. "\n"; my @rows = $db->select(book => {price => {'>=' => 500}}); for my $r (@rows) { printf "Title: %s \nPrice: %s yen\n", $r->{title}, $r->{price}; } $db->update(book => [author => 'oreore'], {author => 'me'}); $db->delete(book => {author => 'me'}); ### insert without row-data in response $db->fast_insert(book => {title => 'someone', ...}); ### using transaction do { my $txn = $db->txn_scope; $db->insert(book => ...); $db->insert(store => ...); $txn->commit; };
Otogiri is one of ORM. A slogan is "Schema-less, Fat-less".
connect_info => [$dsn, $dbuser, $dbpass],
You have to specify dsn, dbuser, and dbpass, to connect to database.
use JSON; inflate => sub { my ($data, $tablename) = @_; if (defined $data->{json}) { $data->{json} = decode_json($data->{json}); } $data->{table} = $tablename; $data; },
You may specify column inflation logic.
Specified code is called internally when called select(), search_by_sql(), and single().
use JSON; deflate => sub { my ($data, $tablename) = @_; if (defined $data->{json}) { $data->{json} = encode_json($data->{json}); } delete $data->{table}; $data; },
You may specify column deflation logic.
Specified code is called internally when called insert(), update(), and delete().
my $db = Otogiri->new( connect_info => [$dsn, $dbuser, $dbpass] );
Instantiate and connect to db.
Please see ATTRIBUTE section.
my $row = $db->insert($table_name => $columns_in_hashref);
Insert data. Then, returns row data.
$db->fast_insert($table_name => $columns_in_hashref);
Insert data simply.
my @rows = $db->select($table_name => $conditions_in_hashref [,@options]);
Select from specified table. Then, returns matched rows as array.
my $row = $db->single($table_name => $conditions_in_hashref [,@options]);
Select from specified table. Then, returns first of matched rows.
my @rows = $db->search_by_sql($sql, \@bind_vals [, $table_name]);
Select by specified SQL. Then, returns matched rows as array. $table_name is optional and used for inflate parameter.
$db->update($table_name => [update_col_1 => $new_value_1, ...], $conditions_in_hashref);
Update rows that matched to $conditions_in_hashref.
$db->delete($table_name => $conditions_in_hashref);
Delete rows that matched to $conditions_in_hashref.
$db->do($sql, @bind_vals);
Execute specified SQL.
my $txn = $db->txn_scope;
returns DBIx::TransactionManager::ScopeGuard's instance. See DBIx::TransactionManager to more information.
my $id = $db->last_insert_id([@args]);
returns last_insert_id. (mysql_insertid in MySQL or last_insert_rowid in SQLite)
Copyright (C) ytnobody.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
ytnobody <ytnobody@gmail.com>
DBIx::Sunny
SQL::Maker
To install Otogiri, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Otogiri
CPAN shell
perl -MCPAN -e shell install Otogiri
For more information on module installation, please visit the detailed CPAN module installation guide.