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

[Perrin Harkins <pe...@primenet.com>]

On Thu, 6 Apr 2000, Niral Trivedi wrote:
> This book has a topic in it in which it has given an example using a
> module called 'IPO::Shareable' which is available from CPAN site..

=head1 NAME

IPO::Shareable - Perl extension to get rich quick

=head1 SYNOPSIS

  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();
  }

=head1 DESCRIPTION

The implementation is trivial, and is left as an excercise for the reader.

(Forgive me, this was too good to pass up.)

- Perrin

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

[darren chamberlain <da...@boston.com>]

>   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

[OT/funny] Re: ANNOUNCE: IPO::Shareable [Re: may be an off topic question..]

[Stas Bekman <sb...@stason.org>]

On Thu, 6 Apr 2000, Perrin Harkins wrote:

> On Thu, 6 Apr 2000, Niral Trivedi wrote:
> > This book has a topic in it in which it has given an example using a
> > module called 'IPO::Shareable' which is available from CPAN site..
> 
> =head1 NAME
> 
> IPO::Shareable - Perl extension to get rich quick

[a few lines snipped]

> (Forgive me, this was too good to pass up.)

If you are looking for a really funny Perlish thingy check this out. How
do we make mod_perl Sex compatible? Did you try Sex :)

Sex can be had from any local CPAN mirror or from
http://www.pobox.com/~schwern/src/Sex-0.69.tar.gz Email your sysadmin
today and ask him or her for Sex!


NAME
    Sex - Perl teaches the birds and the bees.

SYNOPSIS
      package Catholicism;
      use Sex qw(strict Religion);

      package Mormonism;
      use Sex qw(Catholicism Sex);

DESCRIPTION
    Heterogeneous recombination of Perl packages.

    Given two (or more, I'm a liberal guy) packages, Sex.pm will recombine
    their symbols at random recombining them into the new module thus
    providing a cross-section of its functions and global variables. It
will
    also push the parent classes onto the child's @ISA array.

    So you could do:

        package Net::SFTP;
        use Sex qw(Net::FTP Net::SSLeay);

    And get a secure FTP client!

    The recombination occurs in such a way to ensure that the child will
    contain -all- the symbols of both parents. Should two (or more)
parents
    wish to bestow the same symbol on its child one will be chosen at
    random.

    For example:

        package DejaNews;
        use Sex qw(LWP::Simple Net::NNTP);

    LWP::Simple and Net::NNTP both have a head() function and thus they
try
    to give head() to their child. Sex.pm will suck the head() off either
    LWP::Simple or Net::NNTP and stick it to DejaNews. Afterwards,
DejaNews
    can procede to finally use its head().

    Here's another timely example for Sex in the 21st century:

        package URI::Bot9000;
        use Sex qw(URI LWP::RobotUA protected);

    Because of the dire consequences of having sex with URI, one should
make
    sure you're well protected.

BUGS
    There are many bugs you can get from having Sex used too often on your
    computer. Please be sure your programs are Safe before they have Sex.

        package Trojan;
        use Sex qw(Safe Sex);

AUTHOR
    Michael 'The Porn King of CMU' Schwern <sc...@pobox.com>

SEE ALSO
    'Disco Dolls in Hot Skin'

    'Exhaused: The John Holmes Story'

    'Deep Recursion' starring Ada Lovelace.

    'The Fly' (1953)



______________________________________________________________________
Stas Bekman             | JAm_pH    --    Just Another mod_perl Hacker
http://stason.org/      | mod_perl Guide http://perl.apache.org/guide/ 
mailto:stas@stason.org  | http://perl.org    http://stason.org/TULARC/
http://singlesheaven.com| http://perlmonth.com http://sourcegarden.org
----------------------------------------------------------------------