use strict;
use warnings;

use Test::More tests => 1;

$ENV{'CGI_APP_RETURN_ONLY'} = 1; # don't print

{
    package WithStartIssue;

    use base 'CGI::Application';

    # register custom "start" run mode.
    # this is what CAP::AutoRunmode and CAP::RunmodeDeclare do.
    __PACKAGE__->add_callback('init' => sub {
        shift->run_modes('start' => 'my_start');
        }
    );

    sub my_start { return 'my start' }

    # don't output a header
    sub cgiapp_prerun {
        shift->header_type('none');
    }
}

my $issue = WithStartIssue->new;
my $out = $issue->run;

is $out, 'my start';