eliminate support for dead arrayref argspec type
Matt S Trout [Sat, 22 Feb 2014 09:59:25 +0000 (09:59 +0000)]
lib/DX/Role/Op.pm

index e4dc281..8e9381d 100644 (file)
@@ -26,12 +26,6 @@ sub _expand_argspec {
     ($state->has_scope_var($spec)
       ? ($state, $state->scope_var($spec))
       : (map { $_, $_->scope_var($spec) } $state->assign_vars($spec => {})));
-  } elsif (ref($spec) eq 'ARRAY') {
-    if ($spec->[0] eq 'value') {
-      ($state, +{ bound_value => $spec->[1] });
-    } else {
-      die "Arrayref in argspec is not value";
-    }
   } elsif (ref($spec) eq 'SCALAR' or ref($spec) eq 'REF') {
     return ($state, +{ bound_value => $$spec });
   } else {