X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FDX%2FRole%2FOp.pm;h=83b9e8647e54775a664afc0e46b8616955d5bbb1;hb=e183503f954cd8cf5640f933f308c310db88456c;hp=813cea78fc83246c95747b57512eaf731ca27c52;hpb=859049a333deff68898650acf61a18c4c6a923db;p=scpubgit%2FDKit.git diff --git a/lib/DX/Role/Op.pm b/lib/DX/Role/Op.pm index 813cea7..83b9e86 100644 --- 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"; }