view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

    }

if ($input)
    {
    @conf = () ;
    print "\n" ;
    print "You can now specify the configuration parameters for every storage.\n" ;
    print "Apache::SessionX uses this for testing your system and stores it for later\n" ;
    print "use in your application. You can override these default parameters anytime\n" ;
    print "at runtime. You can change them by rerunning Makefile.PL.\n" ;
    print "\nIf you don't plan to use different storages for session, \nonly say Yes to the one storage you want to use.\n" ;

    foreach $store (@avail)
        {
        print "\n" ;
        $data = $Store{$store} ;
        $info = $data -> {param}{Info} ;
        if (GetYesNo("Would you like to configure $info ($store)", $param{$store}?1:0))
            {
            push @conf, $store ;
            $param{$store} = { %{$data->{param}} } if (!keys %{$param{$store}}) ;