Lines Matching refs:be

43     my $be = $srv->accept();
44     $be->autoflush(1);
45     ok(defined $be, "mock backend created");
46     like(<$be>, qr/version/, "received version command");
47     print $be "VERSION 1.0.0-mock\r\n";
49     return $be;
131         my $be = accept_backend($msrv);
132         $s->add($be);
133         push(@mbe, $be);
141     my $be = shift @readable;
142     is(scalar <$be>, $cmd, "metaget passthrough");
143     print $be "EN\r\n";
151         my $be = shift @readable;
153             if ($be == $mbe[$_]) {
157         is(scalar <$be>, "mg /test/$key\r\n", "got mg passthrough");
158         print $be "EN\r\n";
189         my $be = accept_backend($msrv);
190         push(@holdbe, $be);
210         my $be = $msrv->accept();
211         $be->autoflush(1);
212         ok(defined $be, "mock backend created");
213         push(@bes, $be);
218     for my $be (@bes) {
219         $s->add($be);
220         like(<$be>, qr/version/, "received version command");
221         print $be "VERSION 1.0.0-mock\r\n";
229         my $be = $bes[0];
230         is(scalar <$be>, $cmd, "get passthrough");
231         print $be "EN\r\n";
242         my $be = $bes[0];
244             is(scalar <$be>, "mg f$_ v\r\n", "mg to connection $_");
245             print $be "EN\r\n";
261         my $be = $bes[$_ - 1];
263         is(scalar <$be>, "mg f$_ v\r\n", "trying all connections");
265     for my $be (@bes) {
266         print $be "EN\r\n";
312     my $be = accept_backend($readable[0]);
315     is(scalar <$be>, "mg toast\r\n", "backend works");
316     print $be "HD\r\n";
359             my $be = accept_backend($msrv);
362             $be->blocking(0);
363             $bes->add($be);
364             push(@temp, $be);
383             my $be = shift @readable;
387                     if ($_ == $be) {
393             is(scalar <$be>, "mg /test/$key\r\n", "got mg passthrough");
394             print $be "EN\r\n";
422         for my $be (@ready) {
424                 my $be1 = $be->getline;
425                 my $be2 = $be->getline;
427                     print $be "HD\r\n";