在perl模块中使用sigtrap,如何在对象上下文中收到回收的陷阱？

package MyObject;

use strict;
use warnings;
use sigtrap qw/sigtrap/;

sub new {
    my $class = shift;
    my $self = {};
    bless $self, $class;
    return $self;
}

sub run {
    my $self = shift;
    $self->trap_signal('INT', sub { $self->handle_signal('INT') });
    $self->trap_signal('TERM', sub { $self->handle_signal('TERM') });
    $self->trap_signal('HUP', sub { $self->handle_signal('HUP') });
    $self->trap_signal('QUIT', sub { $self->handle_signal('QUIT') });
    $self->trap_signal('USR1', sub { $self->handle_signal('USR1') });
    $self->trap_signal('USR2', sub { $self->handle_signal('USR2') });
    $self->trap_signal('CHLD', sub { $self->handle_signal('CHLD') });
    $self->trap_signal('PIPE', sub { $self->handle_signal('PIPE') });
    $self->trap_signal('ALRM', sub { $self->handle_signal('ALRM') });
    $self->trap_signal('VTALRM', sub { $self->handle_signal('VTALRM') });
    $self->trap_signal('PROF', sub { $self->handle_signal('PROF') });
    $self->trap_signal('IO', sub { $self->handle_signal('IO') });
    $self->trap_signal('PWR', sub { $self->handle_signal('PWR') });
    $self->trap_signal('WINCH', sub { $self->handle_signal('WINCH') });
    $self->trap_signal('URG', sub { $self->handle_signal('URG') });

    while (1) {
        sleep(1);
    }
}

sub trap_signal {
    my $self = shift;
    my $signal = shift;
    my $callback = shift;

    $SIG{$signal} = $callback;
}

sub handle_signal {
    my $self = shift;
    my $signal = shift;

    print "Received signal: $signal\n";
}

package main;

use strict;
use warnings;

my $obj = MyObject->new();
$obj->run();