Select Code to Download

    $server->setcallback(
        data       => \&gotdata,
        connect    => \&connected,
        disconnect => \&disconnected,
    ) || die "Error setting callbacks: $@\n";

package ParentClass;
# [...]
...
    my $self = shift;
    # [...]
}