Re: make an alias to function

2010-02-15 Thread Jeff Peng
On Tue, Feb 16, 2010 at 3:40 PM, Uri Guttman wrote: > *{__PACKAGE__::init_squid_for_reverseproxy} = \&init_reverseproxy; > *{ __PACKAGE__ . '::init_squid_for_reverseproxy' } = \&init_reverseproxy; > Thanks Uri. I really by mistake thought those two are the same stuff. Now I got it. :) -- J

Re: make an alias to function

2010-02-15 Thread Uri Guttman
> "JP" == Jeff Peng writes: > "JP" == Jeff Peng writes: JP> package abc; JP> { # make an alias to another function JP>no strict 'refs'; JP>*{__PACKAGE__::init_squid_for_reverseproxy} = \&init_reverseproxy; JP> } perl -e '*{__PACKAGE__::foo} = \&bar; print map "$_\n"

make an alias to function

2010-02-15 Thread Jeff Peng
Hi, I have a module, and I wanted to make an alias with a function in that module. package abc; { # make an alias to another function no strict 'refs'; *{__PACKAGE__::init_squid_for_reverseproxy} = \&init_reverseproxy; } But this won't work when calling it: my $obj = abc->new; $obj->ini

Re: PayPal API

2010-02-15 Thread Jeff Peng
On Tue, Feb 16, 2010 at 8:45 AM, Mike Blezien wrote: > Hello, > > we are in the process of setting up an API for Paypal's Masspay and was > looking at the module: > > Business::PayPal::API::MassPay > > Has anyone had any experience using this module? Any bugs in it? > Hi MIke, I never used this

PayPal API

2010-02-15 Thread Mike Blezien
Hello, we are in the process of setting up an API for Paypal's Masspay and was looking at the module: Business::PayPal::API::MassPay Has anyone had any experience using this module? Any bugs in it? Thanks, Mike(mickalo)Blezien =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Thunder Rain

Re: Howto catch a signal and continue afterwards

2010-02-15 Thread Shawn H Corey
Matthias Meyer wrote: > Hi group, > > I try to catch a signal, write out some statistics about my running > perl program and continue afterwards with the program. > > use strict; > no utf8; > use MyProgram::Lib; > use Encode; > use Socket; > use File::Path; > use File::Find; > use Getopt::Std; >

Howto catch a signal and continue afterwards

2010-02-15 Thread Matthias Meyer
Hi group, I try to catch a signal, write out some statistics about my running perl program and continue afterwards with the program. use strict; no utf8; use MyProgram::Lib; use Encode; use Socket; use File::Path; use File::Find; use Getopt::Std; die("MyProgram::Lib->new failed\n") if ( !(my $in