The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package MyTestApp2;
use base 'CGI::Application';
use CGI::Application::Plugin::RequireSSL;


sub cgiapp_init {
    my $self = shift;
    $self->config_requiressl(
        ignore_check => 1,
    )
}

sub setup {
    my $self = shift;
    $self->start_mode('mode1');
    $self->run_modes([qw/mode1 mode2/]);
}

sub mode1 : RequireSSL {
    'called mode1';
}
 
sub mode2 {
    'called mode2';
}

1;