don't need to build our own hash with exportables

There's already one in `EXPORT::ALL::`.
masak · Jun 8, 2016 · b98fb69 · b98fb69
1 parent 5b4eaa0
commit b98fb69
Showing 1 changed file with 1 addition and 9 deletions.
diff --git a/lib/_007/Test.pm b/lib/_007/Test.pm
@@ -348,15 +348,7 @@ sub throws-exception($program, $message, $desc = "MISSING TEST DESCRIPTION") is
 our sub EXPORT(*@things) {
     my %exports;
     for @things -> $thing {
-        my $routine = {
-            '&read' => &read,
-            '&is-result' => &is-result,
-            '&is-error' => &is-error,
-            '&parses-to' => &parses-to,
-            '&parse-error' => &parse-error,
-            '&outputs' => &outputs,
-            '&throws-exception' => &throws-exception,
-        }{$thing} // die "Didn't find '$thing'";
+        my $routine = EXPORT::ALL::{$thing} // die "Didn't find '$thing'";
         %exports{$thing} = $routine;
     }
     return %exports;