sub default_code {
    my ($self,$extra) = @_;
    my $sub = sub { 
        my ($extra,$optional,$optional) = @_;
        # do something
        };
    return $sub;
}