add a couple bits and pieces

[dbsrgits/DBIx-Data-Store-old.git] / lib / DBIx / Data / Store / CRUD.pm

diff --git a/lib/DBIx/Data/Store/CRUD.pm b/lib/DBIx/Data/Store/CRUD.pm
index c81dd0b..836f872 100644 (file)
--- a/lib/DBIx/Data/Store/CRUD.pm
+++ b/lib/DBIx/Data/Store/CRUD.pm
@@ -14,6 +14,8 @@ has 'insert_command_constructor' => (is => 'ro');
 
 has "select_column_order" => (is => 'ro');
 
+has implicit_arguments => (is => 'ro');
+
 method new_select_command ($args) {
   die "$self->has_select_sql" unless $self->has_select_sql;
   $self->raw_store->new_stream_command(
@@ -33,6 +35,9 @@ method new_select_single_command ($args) {
 }
 
 method _unwrap_args_for ($type, $args) {
+  if (my $implicit = $self->implicit_arguments) {
+    $args = { %$implicit, %$args };
+  }
   [ @{$args}{@{$self->${\"${type}_argument_order"}}} ]
 }