{"provider_name":"Hatena Blog","height":"190","image_url":null,"description":"use Test::Base qw(no_plan); use Test::Exception; use List::Util qw(first); use Perl6::Say; my $arr = [ { id => 1, name => 'aaa' }, { id => 2, name => 'bbb' }, ]; my $is_ccc = sub { $_->{name} eq 'ccc' }; lives_ok( sub { map { say $_->name } first { $is_ccc->($_) } @$arr; }, 'first' ); # => died: Can\u2026","blog_title":"IMAKADO::BLOG","url":"https://imakado-2.hatenadiary.org/entry/20090730/1248950190","author_name":"IMAKADO","categories":["perl"],"width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fimakado-2.hatenadiary.org%2Fentry%2F20090730%2F1248950190\" title=\"List::Util::first \u306e\u8fd4\u308a\u5024\u3067\u30cf\u30de\u3063\u305f\u306e\u3067\u30e1\u30e2 - IMAKADO::BLOG\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","provider_url":"https://hatena.blog","published":"2009-07-30 19:36:30","author_url":"https://blog.hatena.ne.jp/IMAKADO/","blog_url":"https://imakado-2.hatenadiary.org/","version":"1.0","type":"rich","title":"List::Util::first \u306e\u8fd4\u308a\u5024\u3067\u30cf\u30de\u3063\u305f\u306e\u3067\u30e1\u30e2"}