NAME

Acme::Schrodinger::Do - do block occasionally

SYNOPSIS

use Acme'Schrodinger'Do;
sdo {kill $the,$cat} '50%';

DESCRIPTION

You won't know if Perl will do it, until you run the script

EXPORT

sdo BLOCK [Probability]

sdo {print 'Never Print',"\n"} '0%';              # never print
sdo {print 'The `%\' can be ommited!',"\n"} 0;    # same as above
sdo {print 'Just do it!',"\n"} 100;               # like 'do' block
sdo {print 'Just do it!',"\n"};                   # like 'do' block

SEE ALSO

http://en.wikipedia.org/wiki/Schr%C3%B6dinger%27s_cat

AUTHOR

Kwok Lok Chung, Baggio <rootkwok@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by Kwok Lok Chung, Baggio

THIS LIBRARY IS FREE SOFTWARE; YOU CAN REDISTRIBUTE IT AND/OR MODIFY IT UNDER THE SAME TERMS AS Perl ITSELF AT YOUR OPTION, ANY LATER VERSION OF Perl 5 YOU MAY HAVE AVAILABLE.