may be an off topic question..

[Niral Trivedi <ni...@planet.net>]

All,

I am not sure whether this is the right group to post this question.. I
have found this thing in book "Writing Apache Modules with PERL and C"
from O'Reilly..

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..

So, has anybody ever used this module to store state information for
commercial application??? 

Because I need that capability for one of upcoming project.

So, if anybody has ever used this module or any other module, can he/she
please tell me how do they like it??? Is it good for developing
commercial application or not??

Thanks in advance for any suggestions..

Niral
-- 
Regards...
****************************************************
Niral K. Trivedi, Planet Access Network Inc.
Email : niral@corporate.planet.net
Phone : 973-691-4704 x134

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

[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: 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
----------------------------------------------------------------------

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