Radioactive::Decay - allow scalar values to decay over time
use Radioactive::Decay; my $halflife = 10; tie my $var, $Radioactive::Decay, $halflife; $var = 40; sleep 10; print $var; # 20 sleep 10; print $var; # 10
This allows you to tie a scalar variable so that it will decay over time.
For example, if you set a half-life of 30 seconds, then a variable which is set to 100 now will be 25 in a minute's time.
We're sure there are all manner of useful applications for this, and hopefully someone will let us know what they are.
Tony Bowden and Marty Pauley
Please direct all correspondence regarding this module to: bug-Radioactive-Decay@rt.cpan.org
Copyright (C) 2000-2005 Tony Bowden, Marty Pauley This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License; either version 2 of the License, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.