15 lines
149 B
Plaintext
15 lines
149 B
Plaintext
|
|
||
|
|
sub new {}
|
||
|
|
|
||
|
|
sub register {
|
||
|
|
my ($self, $qp) = @_;
|
||
|
|
|
||
|
|
$qp->register_hook("quit", "quit_handler");
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
sub quit_handler {
|
||
|
|
my ($self, $qp) = @_;
|
||
|
|
|
||
|
|
}
|