lib/DX/Action/FromCode.pm

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