https://github.com/petdance/sql-tiny

SQL::Tiny, a tiny Perl module for making very simple SQL statements
https://github.com/petdance/sql-tiny

perl sql sql-statements

Last synced: 17 days ago
JSON representation

SQL::Tiny, a tiny Perl module for making very simple SQL statements

• Host: GitHub
• URL: https://github.com/petdance/sql-tiny
• Owner: petdance
• Created: 2019-03-09T17:44:15.000Z (almost 6 years ago)
• Default Branch: dev
• Last Pushed: 2023-07-05T03:41:40.000Z (over 1 year ago)
• Last Synced: 2024-11-16T08:20:08.992Z (3 months ago)
• Topics: perl, sql, sql-statements
• Language: Perl
• Homepage:
• Size: 36.1 KB
• Stars: 0
• Watchers: 3
• Forks: 2
• Open Issues: 4
• Metadata Files:
  • Readme: README.md
  • Changelog: Changes

Awesome Lists containing this project

README

        
# SQL::Tiny, a Perl module for generating simple SQL statements

A very simple SQL-building library.  It's not for all your SQL needs,

only the very simple ones.

It doesn't handle JOINs.  It doesn't handle subselects.  It's only for simple SQL.

    my ($sql,$binds) = sql_select( 'users', [ 'name', 'status' ], { status => [ 'Deleted', 'Inactive' ] }, { order_by => 'name' } );

    my ($sql,$binds) = sql_insert( 'users', { name => 'Dave', status => 'Active' } );

    my ($sql,$binds) = sql_update( 'users', { status => 'Inactive' }, { password => undef } );

    my ($sql,$binds) = sql_delete( 'users', { status => 'Inactive' } );

In my test suites, I have a lot of ad hoc SQL queries, and it drives me

nuts to have so much SQL code lying around.  SQL::Tiny is for generating

SQL code for simple cases.

I'd far rather have:

    my ($sql,$binds) = sql_insert(

        'users',

        {

            name      => 'Dave',

            salary    => 50000,

            status    => 'Active',

            dateadded => \'SYSDATE()',

        }

    );

than hand-coding:

    my $sql   = 'INSERT INTO users (name,salary,status,dateadded) VALUES (:name,:status,:salary,SYSDATE())';

    my $binds = {

        ':name'      => 'Dave',

        ':salary'    => 50000,

        ':status'    => 'Active',

        ':dateadded' => \'SYSDATE()',

    };

or even the positional:

    my $sql   = 'INSERT INTO users (name,salary,status,dateadded) VALUES (?,?,?,SYSDATE())';

    my $binds = [ 'Dave', 50000, 'Active' ];

# Build status of dev branch

[![Build Status](https://github.com/petdance/sql-tiny/workflows/testsuite/badge.svg?branch=dev)](https://github.com/petdance/sql-tiny/actions?query=workflow%3Atestsuite+branch%3Adev)

* [CPAN Testers](https://cpantesters.org/distro/S/sql-tiny.html)

# Installation

To install this module, run the following commands:

    perl Makefile.PL

    make

    make test

    make install

# Support and Documentation

After installing, you can find documentation for this module with the

perldoc command.

    perldoc SQL::Tiny

You can also look for information at:

* MetaCPAN

    * https://metacpan.org/release/SQL-Tiny

* Project home page

    * https://github.com/petdance/sql-tiny

* Project issue tracker

    * https://github.com/petdance/sql-tiny/issues

# License and Copyright

Copyright (C) 2019-2020 Andy Lester

This program is free software; you can redistribute it and/or modify it

under the terms of the the

[Artistic License 2.0](https://www.perlfoundation.org/artistic-license-20.html).