Select Code to Download

my $compartment = new Safe;  # module level

...
         return 1;
    } );
}

#!/usr/bin/perl -w

...
$op = '>';
# this doesn't print, throws error
$compartment->reval( "print 'greater' if date_compare(\"$date1\",\"$op
+\",\"$date2\")" );