File Coverage

blib/lib/SQL/Composer.pm

Criterion	Covered	Total	%
statement	32	33	96.9
branch			n/a
condition			n/a
subroutine	13	14	92.8
pod	1	6	16.6
total	46	53	86.7

package SQL::Composer;

use strict;
use warnings;

our $VERSION = '0.17';

use base 'Exporter';

our @EXPORT_OK = qw(sql_select sql_insert sql_delete sql_update sql_upsert);
our %EXPORT_TAGS = (funcs => [qw(sql_select sql_insert sql_delete sql_update sql_upsert)]);

require Carp;
use SQL::Composer::Select;
use SQL::Composer::Insert;
use SQL::Composer::Delete;
use SQL::Composer::Update;
use SQL::Composer::Upsert;

$Carp::Internal{(__PACKAGE__)}++;
$Carp::Internal{"SQL::Composer::$_"}++ for qw/
  Select
  Insert
  Delete
  Update
  Upsert
  Expression
  Join
  Quoter
  /;

sub build {
    my $class = shift;
    my ($name) = shift;

    my $class_name = 'SQL::Composer::' . ucfirst($name);
    return $class_name->new(@_);
}

sub sql_select { build(__PACKAGE__, 'select', @_) }
sub sql_insert { build(__PACKAGE__, 'insert', @_) }
sub sql_update { build(__PACKAGE__, 'update', @_) }
sub sql_delete { build(__PACKAGE__, 'delete', @_) }
sub sql_upsert { build(__PACKAGE__, 'upsert', @_) }

1;
__END__