Help for this page

Select Code to Download


  1. or download this
    package MyMech;

...
sub get { shift->_wrapped('get', @_) }
sub put { shift->_wrapped('put', @_) }
# ...
  2. or download this
    #!/usr/bin/perl

...
Mon Oct 12 19:32:48 2009: Error GETing http://localhost:9999/foo: Can'
+t connect to localhost:9999 (connect: Connection refused) at ./800725
+.pl line 7
Mon Oct 12 19:32:53 2009: Error GETing http://localhost:9999/foo: Can'
+t connect to localhost:9999 (connect: Connection refused) at ./800725
+.pl line 7
Mon Oct 12 19:32:58 2009: Error GETing http://localhost:9999/foo: Can'
+t connect to localhost:9999 (connect: Connection refused) at ./800725
+.pl line 7