first test for observer code

[scpubgit/DKit.git] / lib / DX / Role / Op.pm

diff --git a/lib/DX/Role/Op.pm b/lib/DX/Role/Op.pm
index 7c70333..11294d1 100644 (file)
--- a/lib/DX/Role/Op.pm
+++ b/lib/DX/Role/Op.pm
@@ -6,4 +6,9 @@ has next => (is => 'ro');
 
 requires 'run';
 
+sub but {
+  my ($self, @but) = @_;
+  $self->new(%$self, @but);
+}
+
 1;