view release on metacpan or  search on metacpan

lib/Acme/RPC.pm  view on Meta::CPAN

                $ob = $registry{$oid};
                $ob or do { $request->print("no object with that oid"); next; };
            } elsif($request->param('path')) {
                my @path = split m{/}, $request->param('path');
                my $node = $tree;
                while(@path) {
                    my $step = shift @path;
                    $node = $node->{$step} or do {
                        $step =~ s{[^a-z0-9:_-]}{}g;
                        $request->print("step ``$step'' not found in path");
                        $node = undef;
                        last;
                    };
                }
                $node or next;
                $ob = $node->{chr(0)} or do {
                    $request->print("tried to look up a path that has no object associated");
                };
            }

            #