%# vim:syn=mason <%args> $object $name => undef $check => undef $prop => {} <%init> use locale; my $tags = ''; my $i = 0; while ($i < 100) { my ($err, $msg) = $rpc_client->id->get_tags_by_ids($object->$name); if ($err->{success} and ref($msg) eq 'HASH') { $tags = join(', ', sort values %$msg); $i = 101; } $i++; }