Hi,
I am writing a package with some subs. One of these subs can be called for an
instance of the object ($obj->get_defaults()) or as a static sub
(Example::Package->get_defaults()).
The behaviour of the sub depends on the kind of call.
The following code accomplishes this goal, but it looks a bit dirty to me ...

sub get_defaults {
        my $self = shift;
        $self = undef if ($self eq 'Example::Package');
        if (defined($self)) ....
}

Is there a cleaner way to find out, if the sub was called as an object method
or as a static sub?

thanks,
Lars

-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>


Reply via email to