view release on metacpan or  search on metacpan

Signum.pm  view on Meta::CPAN

        $signame[$signum{$_}]||=$_;
    }
}

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};
}

Signum.pm  view on Meta::CPAN

    my ($val, $i) = (pop,pop);
    my $name = _signame($i);
    unless ($name) { return }
    $SIG{$name} = $val;
}

sub FETCHSIZE {
    scalar @signame;
}

sub STORESIZE { undef }

sub EXTEND { undef }

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

sub PUSH { undef }

sub CLEAR { undef }

sub DELETE { undef }

1;
__END__

=head1 NAME

Acme::Signum - Address signal handlers by number

=head1 SYNOPSIS