Perl中的枚举或符号6

Question

我想传递一个参数给一个只有预定义值的方法。

method send-http($url, $http_method) { .... } 

我应该创建一个枚举通过$http_method？如果是的话那怎么样？

或者Perl 6在Ruby中有类似符号的东西吗？

Answer 1

正如@Christoph提到的，你可以使用枚举：

enum Method <GET PUT POST>; 
sub http-send(str $url, Method $m) { * } 

http-send("http://url/", GET); 

您还可以使用类型约束：

sub http-send(str $url, str $m where { $m ∈ <GET HEAD POST> }) { * } 

http-send("http://url/", 'GET'); 

http-send("http://url/", 'PUT'); 
Constraint type check failed for parameter '$m' 

我猜你也可以使用多分派：

multi sub http-send('GET') { * } 
multi sub http-send('PUT') { * } 
multi sub http-send($m) { die "Method {$m} not supported." } 

http-send('GET'); 

http-send('POST'); 
Method POST not supported.