%config = (
    'proceed_with_x' => '( ($option1 && $option2) || $option3 )'
) ;

##</code><code>##

#! /usr/bin/perl

use strict ;
use warnings ;
$|++ ;

our %config ;
do "test_l.cfg" ;

my ( $r, $option1, $option2, $option3 ) ;

# Case 1: Should pass.
( $option1, $option2, $option3 ) = ( 1, 1, 0 ) ;
$r = eval qq[$config{'proceed_with_x'}] ;
print "Case 1: " . ( $r ? "PASS" : "FAIL" ) . "\n" ;

# Case 2: Should pass.
( $option1, $option2, $option3 ) = ( 0, 0, 1 ) ;
$r = eval qq[$config{'proceed_with_x'}] ;
print "Case 2: " . ( $r ? "PASS" : "FAIL" ) . "\n" ;

# Case 3: Should fail.
( $option1, $option2, $option3 ) = ( 0, 1, 0 ) ;
$r = eval qq[$config{'proceed_with_x'}] ;
print "Case 3: " . ( $r ? "PASS" : "FAIL" ) . "\n" ;

__END__