view release on metacpan or  search on metacpan

t/08-get_current_config.t  view on Meta::CPAN

        return "";
    }
}

my $webapp = WebApp->new;
$webapp->run;

SKIP: {
    skip "Current CGI::Application doesn't support callbacks", 2 unless $webapp->can('add_callback');
    my $config1 = CGI::Application::Plugin::Config::General->get_current_config;

    ok((ref $config1 eq 'HASH'),     'default config empty at end of request - hashref returned');
    ok((scalar keys %$config1) == 0, 'default config empty at end of request - hashref has no keys');
}