Re: RFC: Tie::Scalar::Timeout

[David Cantrell]

On Wed, Nov 01, 2000 at 02:33:40PM +0000, Tony Bowden wrote:

> This is very similar to a module we wrote yesterday...
> 
> package Radioactive::Decay;
> use strict;
> sub TIESCALAR { bless [0,log(2)/$_[1], time], $_[0]; }
> sub STORE     { $_[0]->[0] = $_[1] }
> sub FETCH     { $_[0]->[0] * exp(-$_[0]->[1] * (time - $_[0]->[2])) }
> sub DESTROY   {}
> 1;

Hmmm ... I'm sure that Quantum::Superpositions and Quantum::Heisenberg
should be used in there.

-- 
David Cantrell | [EMAIL PROTECTED] | http://www.cantrell.org.uk/david

Let he who is not a semi-literate half-wit cast the first brickbat