Re^4: SVN::Client subclassing issue (AUTOLOAD)


Perl Monk, Perl Meditation
	PerlMonks

Re^4: SVN::Client subclassing issue (AUTOLOAD)

by tye (Sage)

on Sep 27, 2011 at 20:20 UTC ( #928172=note: print w/replies, xml )

Need Help??

in reply to Re^3: SVN::Client subclassing issue
in thread SVN::Client subclassing issue

our $AUTOLOAD;
sub AUTOLOAD {
    my( $self )= shift @_;
    my( $class, $method )= $AUTOLOAD =~ /^(.+)(?:'|::)(.+)$/
        or  die "Invalid method name: $AUTOLOAD";
    return
        if  'DESTROY' eq $method;
    die "Can't call internal method, $method, via ", __PACKAGE__, $/
        if  $method =~ /^_/;
    return $self->{whatever}->$method( @_ );
}
[download]

Not so much "proper" or "elegant" but a thrown-together example but also not "improper" nor particularly "inelegant".

- tye