--- /usr/lib/perl5/site_perl/5.8.8/CGI/Ajax.pm  2007-02-01 00:35:44.000000000 +0100
+++ CGI/Ajax.pm 2007-09-16 16:18:47.000000000 +0200
@@ -1,17 +1,32 @@
 package CGI::Ajax;
-use strict;
-use Data::Dumper;
-use base qw(Class::Accessor);
-use overload '""' => 'show_javascript';    # for building web pages, so
-                                           # you can just say: print $pjx
 
 BEGIN {
-    use vars qw ($VERSION @ISA @METHODS);
+    our ($VERSION, @ISA, @METHODS);
     @METHODS = qw(url_list coderef_list DEBUG JSDEBUG html
       js_encode_function cgi_header_extra);
 
-    CGI::Ajax->mk_accessors(@METHODS);
-
+    for my $field (@METHODS) {
+       *{'CGI::Ajax::'.$field} = sub {
+           my $self = shift @_;
+           if (@_) {
+             return $self->set($field, @_);
+           } else {
+             return $self->get($field);
+           }
+         };
+    };
+    for (qw(set get)) {
+       *{'CGI::Ajax::'.$_} = sub {
+           my $self = shift @_;
+           if (@_ == 1) {
+             return $$self{$_[0]};
+           } elsif (@_ > 1) {
+             return $self->{$_[0]} = $_[1];
+           } else {
+             $self->_croak('Wrong number of arguments received');
+           }
+         };
+    }
     $VERSION = .701;
 }