> use IPO::Shareable qw(:NYSE);
>
> my $ipo = IPO::Shareable->new($company);
> $ipo->is_internet();
> hype $ipo; # dangerous indirect syntax!
> my $shares = $ipo->invest($LITTLE);
> $ipo->inflate($HUGE); # Note that HUGE is not really a constant
> $ipo->sell($shares); # may need to use Time::HiRes to be fast enough
>
> while ($on_way_to_bank) {
> laugh();
> }
if you're really looking to make this code work well, you'll need to add
another call:
$ipo->uses_or_sells_linux_products();
right after you instantiate the ipo.
darren