Yet Another CPAN Grep

Net-CardDAVTalk ( B/BR/BRONG/Net-CardDAVTalk-0.09.tar.gz, BRONG, 2018; MetaCPAN )

Net-CardDAVTalk/lib/Net/CardDAVTalk.pm ( view source; MetaCPAN )

reObject = (
          email => $email,
          mayAdmin => $JSON::false,
          mayWrite => $JSON::false,
          mayRead => $JSON::false,
        );
        foreach my $item (@{$Acl->{"{$NS_D

t{'mayAdmin'} = $JSON::true if $item->{"{$NS_CY}admin"};
          $ShareObject{'mayWrite'} = $JSON::true if $item->{"{$NS_D}write-content"};
          $ShareObject{'mayRead'} = $JSON::true if $item->

write-content"} } @{$Perms || []}) ? $JSON::false : $JSON::true,
        mayRead    => (grep { exists $_->{"{$NS_D}read"} } @{$Perms || []}) ? $JSON::true : $JSON::false,
        mayWrite   => (grep {