@@ -1,3 +1,5 @@

+0.1704

+    - added EXPERIMENTAL parameter new syntax :name(operator)

 0.1703

     - added EXPERIMENTAL join new syntax.

 0.1702

@@ -1,7 +1,7 @@

 package DBIx::Custom;

 use Object::Simple -base;

-our $VERSION = '0.1703';

+our $VERSION = '0.1704';

 use 5.008001;

 use Carp 'croak';

@@ -1126,6 +1126,7 @@ sub _create_query {

         # Create query

         my $builder = $self->query_builder;

         $builder->{_tag_parse} = $self->tag_parse;

+        $builder->safety_character($self->safety_character);

         $query = $builder->build_query($source);

         # Remove reserved word quote

@@ -10,8 +10,7 @@ use DBIx::Custom::Util '_subname';

 push @DBIx::Custom::CARP_NOT, __PACKAGE__;

 push @DBIx::Custom::Where::CARP_NOT, __PACKAGE__;

-# Parameter regex

-our $PARAM_RE = qr/(^|[^\.\w]):([\.\w]+)([^\.\w]|$)/sm;

+has 'safety_character';

 sub build_query {

     my ($self, $source) = @_;

@@ -69,14 +68,17 @@ sub _placeholder_count {

 sub _parse_parameter {

     my ($self, $source) = @_;

-    

+

     # Get and replace parameters

     my $sql = $source || '';

     my $columns = [];

-    while ($source =~ /$PARAM_RE/g) {

+    my $c = $self->safety_character;

+    # Parameter regex

+    my $re = qr/^(.*?):([$c\.]+)(.*)/s;

+    while ($sql =~ /$re/g) {

         push @$columns, $2;

+        $sql = "$1?$3";

     }

-    $sql =~ s/$PARAM_RE/$1?$3/g;

     # Create query

     my $query = DBIx::Custom::Query->new(

@@ -57,6 +57,7 @@ $datas = [

 for (my $i = 0; $i < @$datas; $i++) {

     my $data = $datas->[$i];

     my $builder = DBIx::Custom->new->query_builder;

+    $builder->safety_character('\w');

     my $query = $builder->build_query($data->{source});

     is($query->{sql}, $data->{sql_expected}, "$data->{name} : sql");

     is_deeply($query->columns, $data->{columns_expected}, "$data->{name} : columns");

@@ -65,6 +66,7 @@ for (my $i = 0; $i < @$datas; $i++) {

 test 'Original tag';

 $builder = DBIx::Custom->new->query_builder;

+$builder->safety_character('\w');

 $ret_val = $builder->register_tag(

     p => sub {

@@ -84,6 +86,7 @@ isa_ok($ret_val, 'DBIx::Custom::QueryBuilder');

 test "Tag error case";

 $builder = DBIx::Custom->new->query_builder;

+$builder->safety_character('\w');

 eval{$builder->build_query('{? }')};

 like($@, qr/\QColumn name must be specified in tag "{? }"/, "? not arguments");

@@ -119,6 +122,7 @@ $builder->register_tag(

 test 'General error case';

 $builder = DBIx::Custom->new->query_builder;

+$builder->safety_character('\w');

 $builder->register_tag(

     a => sub {

         return ["? ? ?", ['']];