File Coverage

blib/lib/ActiveRecord/Simple/Utils.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch	1	2	50.0
condition	2	5	40.0
subroutine	4	4	100.0
pod	0	2	0.0
total	25	31	80.6

package ActiveRecord::Simple::Utils;

use strict;
use warnings;


sub quote_sql_stmt {
    my ($sql, $driver_name) = @_;

    return unless $sql && $driver_name;

    $driver_name //= 'Pg';
    my $quotes_map = {
        Pg => q/"/,
        mysql => q/`/,
        SQLite => q/`/,
    };
    my $quote = $quotes_map->{$driver_name};

    $sql =~ s/"/$quote/g;

    return $sql;
}

sub class_to_table_name {
    my ($class_name) = @_;

    $class_name =~ s/.*:://;
    $class_name = lc $class_name;
    $class_name .= 's';

    return $class_name;
}

1;