File Coverage

blib/lib/Gantry/Utils/SQL.pm

Criterion	Covered	Total	%
statement	6	49	12.2
branch	0	20	0.0
condition	0	9	0.0
subroutine	2	9	22.2
pod	7	7	100.0
total	15	94	15.9

package Gantry::Utils::SQL;
use strict;

use Carp qw( confess );

############################################################
# Variables                                                #
############################################################
############################################################
# Functions                                                #
############################################################
sub new {
    my ( $class, $opt ) = @_;

    my $self = {};
    bless( $self, $class );

    # populate self with data from site
    return( $self );

} # end new

#-------------------------------------------------
# $sql_helper->sql_bool( $bool_string )
#-------------------------------------------------
sub sql_bool {
    my( $self, $input ) = shift;

    return( 'FALSE' ) if ( ( ! defined $input ) || ( ! length $input ) );

    if ( $input =~ /^(t|y|1)$/i ) {
        return( 'TRUE' );
    }
    elsif ( $input =~ /^(f|n|0)$/i ) {
        return( 'FALSE' );
    }
    elsif ( defined $input ) {
        return( 'TRUE' );
    }
    else {
        return( 'FALSE' );
    }

} # END sql_bool

#-------------------------------------------------
# $sql_helper->sql_insert( $table, %data )
#-------------------------------------------------
sub sql_insert {
    my ( $self, $table, @vals ) = @_;

    my ( @fields, @values );

    while ( @vals ) {
    push ( @fields, shift( @vals ) );

        if ( @vals ) {
            push( @values, shift( @vals ) );
        }
        else {
            confess( 'Error: Incorrect number of arguements.' );
        }
    }

    return( "INSERT INTO $table ( ". join( ', ', @fields ). ' ) VALUES ( '.
            join( ', ', @values ). ' )' );
} # END sql_insert

#-------------------------------------------------
# $sql_helper->sql_num( $number )
#-------------------------------------------------
sub sql_num {
    my ( $self, $number ) = ( shift, shift );

    return( 'NULL' ) if ( ( ! defined $number ) || ! length ( $number) );

    $number =~ s/\\/\\\\/g;
    $number =~ s/\'/\\'/g;

    return( "'$number'" );
} # END sql_num

#-------------------------------------------------
# $sql_helper->sql_str( $string )
#-------------------------------------------------
sub sql_str {
    my( $self, $string ) = ( shift, shift );

    return( "''" ) if ( !defined( $string ) || ! length( $string ) );

    $string =~ s/\\/\\\\/g;
    $string =~ s/\'/\\'/g;

    return( "'$string'" );
} # END sql_str

#-------------------------------------------------
# $sql_helper->sql_update( $table, $clause, $data )
#-------------------------------------------------
sub sql_update {
    my ( $self, $table, $clause, @vals ) = @_;

    $clause = '' if ( ! defined $clause );

    my @updates;

    while ( @vals ) {
        my $field = shift( @vals );

        if ( @vals ) {
            push( @updates, "$field=". shift( @vals ) );
        }
        else {
            confess( 'Error: Incorrect number of arguements.' );
        }
    }

    return( "UPDATE $table SET ". join( ', ', @updates ). ' '. $clause );
} # END sql_update

#-------------------------------------------------
# $sql_helper->sql_quote( $string )
#-------------------------------------------------
sub sql_quote {
    my ( $self, $sql ) = ( shift, shift );

    return( '' ) if ( ! defined $sql );

    $sql =~ s/\\/\\\\/g;
    $sql =~ s/'/''/g;

    return( $sql );
} # END sql_quote

# EOF
1;

__END__