
The stupid question is the question not asked
	PerlMonks

Re: Answer: How do I make object methods callable as non-OO functions?

by cazz (Pilgrim)

on Mar 25, 2005 at 10:27 UTC ( [id://442355]=note: print w/replies, xml )

Need Help??

This is an archived low-energy page for bots and other anonmyous visitors. Please sign up if you are a human and want to interact.

in reply to Re: How do I make object methods callable as non-OO functions?
in thread How do I make object methods callable as non-OO functions?

CGI.pm does something simliar, except with a generic sub.

sub self_or_default {
    return @_ if defined($_[0]) && (!ref($_[0])) &&($_[0] eq 'CGI');
    unless (defined($_[0]) &&
        (ref($_[0]) eq 'CGI' || UNIVERSAL::isa($_[0],'CGI')) # slightl
+y optimized for common case 
        ) {
    $Q = $CGI::DefaultClass->new unless defined($Q);
    unshift(@_,$Q);
    }
    return wantarray ? @_ : $Q;
}
[download]

Then they use it like this:

sub url_param {
    my ($self,@p) = self_or_default(@_);
    my $name = shift(@p);
    return undef unless exists($ENV{QUERY_STRING});
...
[download]

Comment on Re: Answer: How do I make object methods callable as non-OO functions? Select or Download Code

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://442355]
help

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Notices^?

	• hippo	‥ epoptai's answer Re: how do I set a cookie and redirect was blessed by hippo!
	• erzuuli	‥ Anonymous Monks are no longer allowed to use Super Search, due to an excessive use of this resource by robots.