view release on metacpan or  search on metacpan

Signum.pm  view on Meta::CPAN

    }
}

sub _signame {
    $signame[$_[0]];
}

sub TIEARRAY {
    my $cls = shift;
    my $d = undef;
    bless \$d => $cls;
}

sub FETCH {
    my $i = pop;
    my $name = _signame($i);
    unless ($name) { return }
    return $SIG{$name};
}

sub STORE {