better debugging output

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

diff --git a/lib/DX/Role/Action.pm b/lib/DX/Role/Action.pm
index 3b7367a..d345b4f 100644 (file)
--- a/lib/DX/Role/Action.pm
+++ b/lib/DX/Role/Action.pm
@@ -21,4 +21,12 @@ sub run {
   return @res;
 }
 
+sub as_structure {
+  my ($self) = @_;
+  my %data = %$self;
+  delete $data{dependencies} unless @{$data{dependencies}};
+  my $id = delete $data{id};
+  +{ $id => \%data };
+}
+
 1;