@@ -417,16 +417,16 @@ sub create_table {

     my ($self, $table, @column_definitions) = @_;

     # Create table

-    my $sql = "create table $table (\n";

+    my $sql = "create table $table (";

     # Column definitions

     foreach my $column_definition (@column_definitions) {

-        $sql .= "\t$column_definition,\n";

+        $sql .= "$column_definition,";

     }

-    $sql =~ s/,\n$//;

+    $sql =~ s/,$//;

     # End

-    $sql .= "\n);";

+    $sql .= ");";

     # Do query

     return $self->do($sql);

@@ -97,7 +97,7 @@ sub fetch_hash {

     return wantarray ? %$row_hash : $row_hash;

 }

-sub fetch_first {

+sub fetch_single {

     my $self = shift;

     # Fetch

@@ -112,7 +112,7 @@ sub fetch_first {

     return wantarray ? @$row : $row;

 }

-sub fetch_hash_first {

+sub fetch_hash_single {

     my $self = shift;

     # Fetch hash

@@ -274,31 +274,31 @@ The following is fetch_hash sample

         my $val2 = $row->{key2};

     }

-=head2 fetch_first

+=head2 fetch_single

 Fetch only first row(Scalar context)

-    $row = $result->fetch_first; # array reference

-    @row = $result->fetch_first; # array

+    $row = $result->fetch_single; # array reference

+    @row = $result->fetch_single; # array

-The following is fetch_first sample

+The following is fetch_single sample

-    $row = $result->fetch_first;

+    $row = $result->fetch_single;

 This method fetch only first row and finish statement handle

-=head2 fetch_hash_first

+=head2 fetch_hash_single

 Fetch only first row as hash

-    $row = $result->fetch_hash_first; # hash reference

-    %row = $result->fetch_hash_first; # hash

+    $row = $result->fetch_hash_single; # hash reference

+    %row = $result->fetch_hash_single; # hash

-The following is fetch_hash_first sample

+The following is fetch_hash_single sample

-    $row = $result->fetch_hash_first;

+    $row = $result->fetch_hash_single;

-This method fetch only first row and finish statement handle

+This method fetch only single row and finish statement handle

 =head2 fetch_rows

@@ -79,33 +79,33 @@ while (my %row = $result->fetch_hash) {

 is_deeply(\@rows, [{key1 => 1, key2 => 2}, {key1 => 3, key2 => 4}], $test);

-test 'fetch_first';

+test 'fetch_single';

 $result = query($dbh, $sql);

-$row = $result->fetch_first;

+$row = $result->fetch_single;

 is_deeply($row, [1, 2], "$test : row");

 $row = $result->fetch;

 ok(!$row, "$test : finished");

-test 'fetch_first list context';

+test 'fetch_single list context';

 $result = query($dbh, $sql);

-@row = $result->fetch_first;

+@row = $result->fetch_single;

 is_deeply([@row], [1, 2], "$test : row");

 @row = $result->fetch;

 ok(!@row, "$test : finished");

-test 'fetch_hash_first';

+test 'fetch_hash_single';

 $result = query($dbh, $sql);

-$row = $result->fetch_hash_first;

+$row = $result->fetch_hash_single;

 is_deeply($row, {key1 => 1, key2 => 2}, "$test : row");

 $row = $result->fetch_hash;

 ok(!$row, "$test : finished");

-test 'fetch_hash_first list context';

+test 'fetch_hash_single list context';

 $result = query($dbh, $sql);

-@row = $result->fetch_hash_first;

+@row = $result->fetch_hash_single;

 is_deeply({@row}, {key1 => 1, key2 => 2}, "$test : row");

 @row = $result->fetch_hash;

 ok(!@row, "$test : finished");