=== modified file 'lib/QueryParser.pm'
--- lib/QueryParser.pm	2012-01-19 19:46:56 +0000
+++ lib/QueryParser.pm	2012-04-10 12:19:46 +0000
@@ -35,7 +35,7 @@
 # their proximity to keywords.  (?<!KEY\s) is a workaround for ON DUPLICATE KEY
 # UPDATE, which is usually followed by a column name.
 our $tbl_regex = qr{
-         \b(?:FROM|JOIN|(?<!KEY\s)UPDATE|INTO) # Words that precede table names
+         \b(?:FROM|JOIN|(?<!KEY\s)UPDATE|INSERT|REPLACE) # Words that precede table names
          \b\s*
          \(?                                   # Optional paren around tables
          # Capture the identifier and any number of comma-join identifiers that
@@ -98,7 +98,10 @@
 
    # These keywords may appear between UPDATE or SELECT and the table refs.
    # They need to be removed so that they are not mistaken for tables.
-   $query =~ s/ (?:LOW_PRIORITY|IGNORE|STRAIGHT_JOIN)//ig;
+   $query =~ s/ (?:LOW_PRIORITY|IGNORE|STRAIGHT_JOIN)\b//ig;
+
+   # INTO is optional for INSERT and REPLACE.
+   $query =~ s/ INTO\b//ig;
 
    # Another special case: LOCK TABLES tbl [[AS] alias] READ|WRITE, etc.
    # We strip the LOCK TABLES stuff and append "FROM" to fake a SELECT
@@ -111,6 +114,7 @@
       $query = "FROM $query";
    }
 
+   $query =~ s/\/\*.*\*\/\s*//sg;        # comments
    $query =~ s/\\["']//g;                # quoted strings
    $query =~ s/".*?"/?/sg;               # quoted strings
    $query =~ s/'.*?'/?/sg;               # quoted strings
@@ -174,7 +178,10 @@
 
    # These keywords may appear between UPDATE or SELECT and the table refs.
    # They need to be removed so that they are not mistaken for tables.
-   $query =~ s/ (?:LOW_PRIORITY|IGNORE|STRAIGHT_JOIN)//ig;
+   $query =~ s/ (?:LOW_PRIORITY|IGNORE|STRAIGHT_JOIN)\b//ig;
+
+   # INTO is optional for INSERT and REPLACE.
+   $query =~ s/ INTO\b//ig;
 
    # These keywords may appear before JOIN. They need to be removed so
    # that they are not mistaken for implicit aliases of the preceding table.
@@ -185,7 +192,7 @@
    my @tbl_refs;
    my ($tbl_refs, $from) = $query =~ m{
       (
-         (FROM|INTO|UPDATE)\b\s*   # Keyword before table refs
+         (FROM|INSERT|REPLACE|UPDATE)\b\s*   # Keyword before table refs
          .+?                       # Table refs
       )
       (?:\s+|\z)                   # If the query does not end with the table

=== modified file 't/lib/QueryParser.t'
--- t/lib/QueryParser.t	2012-03-06 13:56:08 +0000
+++ t/lib/QueryParser.t	2012-04-10 12:05:53 +0000
@@ -10,7 +10,7 @@
 use strict;
 use warnings FATAL => 'all';
 
-use Test::More tests => 135;
+use Test::More tests => 139;
 use English qw(-no_match_vars);
 
 use QueryRewriter;
@@ -389,6 +389,24 @@
 );
 
 test_query(
+   'INSERT foo VALUES (1)',
+   {  DATABASE => {},
+      TABLE    => { foo => 'foo', }
+   },
+   [qw(foo)],
+   'insert with one not aliased, without into keyword',
+);
+
+test_query(
+   'INSERT ignore_foo VALUES (1)',
+   {  DATABASE => {},
+      TABLE    => { ignore_foo => 'ignore_foo', }
+   },
+   [qw(ignore_foo)],
+   'insert with one not aliased, table prefixed with keyword',
+);
+
+test_query(
    'INSERT INTO foo VALUES (1) ON DUPLICATE KEY UPDATE bar = 1',
    {  DATABASE => {},
       TABLE    => { foo => 'foo', },