bugfix: strange response of single method when specify unmatched cond…

…ition

lib/Otogiri.pm

@@ -38,7 +38,7 @@ sub _deflate_param {
 
 sub _inflate_rows {
     my ($self, $table, @rows) = @_;
-    @rows = $self->{inflate} ? map {$self->{inflate}->($_, $table)} @rows : @rows;
+    @rows = $self->{inflate} ? map {$self->{inflate}->($_, $table)} grep {defined $_} @rows : @rows;
     wantarray ? @rows : $rows[0];
 }
 

t/40_01_bug_single_with_void_result.t

@@ -0,0 +1,31 @@
+use strict;
+use warnings;
+use Test::More;
+use Otogiri;
+
+my $dbfile = ':memory:';
+my $db = Otogiri->new(
+    connect_info => ["dbi:SQLite:dbname=$dbfile", '', ''],
+    inflate => sub {
+        my ($row, $table) = @_;
+        $row->{table} = $table;
+        $row;
+    },
+    deflate => sub {
+        my ($row, $table) = @_;
+        delete $row->{table};
+        $row;
+    },
+);
+
+subtest strange_response => sub {
+    $db->do(<<'SQL'
+CREATE TABLE test (id int, name text)
+SQL
+    );
+    $db->fast_insert(test => {id => 123, name => 'foo'});
+    my $row = $db->single(test => {id => 111});
+    is $row, undef;
+};
+
+done_testing;