133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
|
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
|
+
-
-
-
-
-
-
+
+
+
+
+
+
+
|
}
}
if ($cr eq '') {
return;
}
# call cr(arg1,arg2,...)
if (-e "$cr.pm") {
no strict 'refs'; # allow symbolic references
my $expr = $expressions[$i];
eval "require $cr";
$cr->import (@_[1 .. $#_]);
&$cr ($expr);
use strict 'refs';
|