sub UNIVERSAL::method { 
        my($self, $name, @rest) = @_;
        sub { $self->$name(@rest, @_); }; 
}
package ParentClass;
# [...]
sub init_server {
        my $self = shift;
        # [...]
        $self->{'server'}->setcallback(
                data       => $self->method("gotdata"),
                connect    => $self->method("connected"),
# [...]