Pass a code reference to the default function to the callback function? e.g.

$self -> {CALLBACK} = sub {
    my $self = shift;
    my $default = shift;
    my @args = @_;
    ( "arg condition here" ) and return $default -> (@args);
    ...
}
[download]