[OOT] Re: ANNOUNCE: IPO::Shareable [Re: may be an off topic question..]

[Tobias Hoellrich <th...@Adobe.COM>]

You failed to mention that this module requires:

	IPO::BuzzWords qw(:xml :b2b :asp :wha)
	Angel::Investor
   and
	Location::PaloAlto qw(:noMatterWhatItCosts)

Thanks Perrin 
  Tobias

At 03:15 PM 4/6/00 -0700, Perrin Harkins wrote:
>=head1 NAME
>
>IPO::Shareable - Perl extension to get rich quick
>

Re: [OOT] ANNOUNCE: IPO::Shareable

[Kip Hampton <kh...@totalcinema.com>]

okay, i'll bite. . .

###################
package IPO::Shareable

use IPO::BuzzWords qw(:xml :b2b :asp :wha);
use Angel::Investor
use Location::PaloAlto qw(:noMatterWhatItCosts)

sub hype {
    my ($self, $company) = @_;
    my $product;
    die "penniless" unless $self->{sold};

    if ($company->{marketing_dept} > 1) {
       $product = $self->produce(['vaporware', 'months_late']);
       $product->{'spec_change'} = 'daily';
    }

    while ( $company->in_business() ) {
        my $bloat = new IPO::BuzzWords(['seen_on_cnet',
'heard_at_tradeshow']);
        $product->add($bloat);
        $company->{'market_value'}++;
    }

    return $product;
}

__END__
####################
anyone else?  :-)

Tobias Hoellrich wrote:

> You failed to mention that this module requires:
>
>         IPO::BuzzWords qw(:xml :b2b :asp :wha)
>         Angel::Investor
>    and
>         Location::PaloAlto qw(:noMatterWhatItCosts)
>
> Thanks Perrin
>   Tobias
>
> At 03:15 PM 4/6/00 -0700, Perrin Harkins wrote:
> >=head1 NAME
> >
> >IPO::Shareable - Perl extension to get rich quick
> >

--
"Wit is something that you possess.
 Humour is something that possesses you."
                      --Robertson Davies