Like this ...

package MyClass;
use strict;
use Log::Log4Perl;

# this tells perl to look in Log::Log4Perl for methods
@MyClass::ISA = qw(Log::Log4Perl);

# now override methods with your own ones.
# all else is found looked up in packages in
# @MyClass::ISA

sub error {
    ...
}
sub info {
    ...
}
1;
[download]

... or use the base pragma.

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}