explain WIP

lib/DBIx/Class/Helper/ResultSet/Explain.pm

@@ -0,0 +1,23 @@
+package DBIx::Class::Helper::ResultSet::Explain;
+
+sub explain {
+    my $self = shift;
+
+    my $query = ${ $self->as_query() };
+    my $sql   = shift @$query;
+    my @bind  = map { $_->[1] } @$query;
+
+    my @explain =
+        map { $_->[0] }
+        @{  
+            $self->result_source->schema->storage->dbh->selectall_arrayref(
+                'EXPLAIN ANALYZE ' . $sql,
+                undef,
+                @bind
+            )   
+        };  
+
+    return wantarray ? @explain : join( "\n", @explain );
+}
+
+1;