gistfile1.txt

sub listener {
    my ($event) = @_;
    console->log("event is " . $event);

    # doesn't work                                                                                                                         
    # $event->respondWith(handleRequest($event->request));                                                                                 

    # works                                                                                                                                
    my $req = $event->request;
    my $resp = handleRequest($req);
    $event->respondWith($resp);
}

sub handleRequest {
    my ($request) = @_;
    my $msg = " Hello" . " from" . " Perl\n" . $request->clone()->url . "\n";
    return Response->new($msg);
}

# doesn't work                                                                                                                             
# GLOBAL->addEventListener("fetch", \&listener);                                                                                           

# doesn't work                                                                                                                             
# JS::inline('addEventListener("fetch", p5cget("main", "listener"))');                                                                     

# works                                                                                                                                    
JS::inline('addEventListener("fetch", event => { p5cget("main", "listener")([event]) })');