File Coverage

lib/MojoX/Mysql/Util.pm

Criterion	Covered	Total	%
statement	20	25	80.0
branch	2	4	50.0
condition	2	2	100.0
subroutine	5	6	83.3
pod	0	3	0.0
total	29	40	72.5

package MojoX::Mysql::Util;
use Mojo::Base -base;
use Mojo::Util qw(dumper);
use Mojo::Collection 'c';

sub quote {
	my ($self,$str,$default) = @_;
	$default ||= 'DEFAULT';
	if($str){
		$str =~ s/['\\]/\\$&/gmo;
		return qq{'$str'};
	}
	else{
		return $default;
	}
}

sub quote_in {
	my ($self,$obj,$default) = @_;
	if(ref $obj eq 'ARRAY'){
		return join(",",map($self->quote($_,$default),@{$obj}));
	}
	else{
		return $self->quote($obj,$default);
	}
}

sub id {
	my ($self) = @_;
	my @keys = sort {$a <=> $b} grep($_ ne '_default',keys %{$self->{'config'}});
	return c(@keys);
}

1;