Admin
dashboard
file manager
command
php exec
/
/
usr
/
share
/
doc
/
perl-libwww-perl
/
examples
path:
go
upload
mkdir
name
type
size
perms
modified
actions
[parent directory]
handler-order.pl
file
425 B
0755
2024-10-29 00:00:00
edit
delete
rename
editing: handler-order.pl
#!/usr/bin/perl use strict; use warnings; use feature qw( say ); use LWP::UserAgent; my $ua = LWP::UserAgent->new; my @phases = ( 'request_preprepare', 'request_prepare', 'request_send', 'response_header', 'response_data', 'response_done', 'response_redirect', ); for my $phase (@phases) { $ua->add_handler($phase => sub { say "$phase"; return undef; }); } $ua->get('http://example.com');
save
cancel