return wantarray ? () : undef; なので #!/usr/bin/env perl use strict; use warnings; use utf8; use feature 'say'; use Data::Dump qw/dump/; say dump sub{return }->(); say dump scalar sub{return }->(); __END__ 出力結果 () undef そっかーそっか…

メモです。下のjsonに特に意味はありません。 API完成を待っていて開発進まない的なシチュエーションがあったのでつくりました。他の言語だとどうなるんでしょうね？app.psgi #!/usr/bin/env perl use strict; use warnings; use Plack::Request; my $json =<<EOF; { "items":[ { "year" : 1954 }, { "year" : 2000 } ] } EOF sub { my $req = Plack::Request-></eof;>…