From d54b913b776dc3a9adcba8270395b6b02874dd22 Mon Sep 17 00:00:00 2001 From: Dagfinn Ilmari Mannsåker Date: Tue, 9 Aug 2016 15:54:32 +0100 Subject: Use postderef for hash k/v slice --- t/lib/Test/Sietima/MailStore.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 't/lib/Test') diff --git a/t/lib/Test/Sietima/MailStore.pm b/t/lib/Test/Sietima/MailStore.pm index 78b76f3..ff4064c 100644 --- a/t/lib/Test/Sietima/MailStore.pm +++ b/t/lib/Test/Sietima/MailStore.pm @@ -34,7 +34,7 @@ sub retrieve_by_tags { for my $m ($self->_mails->@*) { next unless all { $m->{tags}{$_} } @tags; push @ret, { - %{$m}{id}, + $m->%{id}, mail => Email::MIME->new($m->{mail}) }; } -- cgit v1.2.3