in reply to chaining callbacks

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); ... }

One world, one people