avoid deprecated .exists method

moritz · moritz · commit 59eff6213428 · 2014-01-19T15:06:40.000+01:00
diff --git a/lib/Perl6/Documentable/Registry.pm b/lib/Perl6/Documentable/Registry.pm
@@ -19,7 +19,7 @@ class Perl6::Documentable::Registry {
         %!grouped-by{$what} ||= @!documentables.classify(*."$what"());
     }
     method lookup(Str $what, Str :$by!) {
-        unless %!cache.exists($by) {
+        unless %!cache{$by}:exists {
             for @!documentables -> $d {
                 %!cache{$by}{$d."$by"()}.push: $d;
             }

Original file line number	Diff line number	Diff line change
`@@ -19,7 +19,7 @@ class Perl6::Documentable::Registry {`
`19`	`19`	`%!grouped-by{$what} \|\|= @!documentables.classify(*."$what"());`
`20`	`20`	`}`
`21`	`21`	`method lookup(Str $what, Str :$by!) {`
`22`		`- unless %!cache.exists($by) {`
	`22`	`+ unless %!cache{$by}:exists {`
`23`	`23`	`for @!documentables -> $d {`
`24`	`24`	`%!cache{$by}{$d."$by"()}.push: $d;`
`25`	`25`	`}`