Select Code to Download

use strict;
use warnings;
...
my $level = 1;

if (AL_CORP_MIN < $level) { print 1 };

Unterminated <> operator at index.app line 6.

use strict;
use warnings;
...
my $level = 1;

if ($level > AL_CORP_MIN) { print 1 };

AL_CORP_MIN <= $level && $level <= AL_CORP_MAX

use strict;
use warnings;
...
sub AL_CORP_MIN { 1 };
my $level = 1;  
my $foo = $level == AL_CORP_MIN ? 'a' : 'b';

Search pattern not terminated at index.app line 6.

my $foo = $level == AL_CORP_MIN() ? 'a' : 'b';

Summary of my perl5 (revision 5 version 8 subversion 8) configuration:
  Platform:
...
    /usr/share/perl/5.8
    /usr/local/lib/site_perl
    .