+=head2 current_store
+
+Returns currnet store plugin object
+
+=cut
+
+sub current_store {
+ my $self = shift;
+
+ my $module = $self->module;
+ my $s = $self->only( ref($self).'::'.$module );
+
+ confess "unknown store module $module not one of ", dump( $self->possible_stores ) unless $s;
+
+# warn "#### current store = $s\n" if $self->debug > 4;
+
+ return $s;
+}
+