allow value scalarref, refactor

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

diff --git a/lib/DX/Role/Op.pm b/lib/DX/Role/Op.pm
index 813cea7..83b9e86 100644 (file)
--- a/lib/DX/Role/Op.pm
+++ b/lib/DX/Role/Op.pm
@@ -28,6 +28,8 @@ sub _expand_argspec {
     } else {
       die "Arrayref in argspec is not value";
     }
+  } elsif (ref($spec) eq 'SCALAR' or ref($spec) eq 'REF') {
+    return +{ bound_value => $$spec };
   } else {
     die "Argspec incomprehensible";
   }