1 package DX::Action::FromCode;
5 has expect => (is => 'ro', required => 1);
7 has perform => (is => 'ro', required => 1);
9 has dependencies => (is => 'ro', default => sub { [] });
11 sub expected_effect { $_[0]->expect->() }
12 sub run { $_[0]->perform->() }
14 sub but { my ($self, @but) = @_; ref($self)->new(%$self, @but); }