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

package DX::Role::Op;

use Moo::Role;

has next => (is => 'ro');

requires 'run';

sub but {
  my ($self, @but) = @_;
  $self->new(%$self, @but);
}

1;
Commit	Line	Data
60cda014	1	package DX::Role::Op;
	2
	3	use Moo::Role;
	4
	5	has next => (is => 'ro');
	6
	7	requires 'run';
	8
b40d5c51	9	sub but {
	10	my ($self, @but) = @_;
	11	$self->new(%$self, @but);
	12	}
	13
60cda014	14	1;