sub new {
    # ... miscellany

    # Create our object!
    my $self = {};
    bless($self, $class);

    ### SET UP DEFAULT VALUES ###
    #
    # We set them up here and not in the setup() because a subclass
    # which implements setup() still needs default values!

    $self->header_type('header');
    $self->mode_param('rm');
    $self->start_mode('start');

    # ... remainder of constructor,
    # including init and setup calls
}
[download]

Now those defaults have been moved until just before setup(), the final call, meaning they overwrite anything set in the init phase:

sub new {
    # ... miscellany

    # Call cgiapp_init() method, which may be implemented in the sub-c
+lass.
    # Pass all constructor args forward.  This will allow flexible usa
+ge
    # down the line.
    $self->call_hook('init', @args);

    ### SET UP DEFAULT VALUES ###
    #
    # We set them up here and not in the setup() because a subclass
    # which implements setup() still needs default values!

    $self->header_type('header');
    $self->mode_param('rm');
    $self->start_mode('start') unless defined $self->start_mode;

    # Call setup() method, which should be implemented in the sub-clas
+s!
    $self->setup();

    return $self;
}
[download]