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