Lines Matching refs:subr
1177 my %subr = ( n => sub {$_[0]},
1187 my $subr = $subr{$meth}
1191 $subr->($a,$b);
1194 All the work of numeric conversion is done in %subr and num(). Of
1195 course, %subr is not complete, it contains only operators used in the
1226 the tables of operations, and change the code which fills %subr to
1228 my %subr = ( 'n' => sub {$_[0]} );
1230 $subr{$op} = $subr{"$op="} = eval "sub {shift() $op shift()}";
1234 $subr{$op} = eval "sub {shift() $op shift()}";
1238 $subr{$op} = eval "sub {$op shift()}";
1243 %subr, and defining a copy constructor (needed since Perl has no
1272 As a final remark, note that one can fill %subr by
1274 my %subr = ( 'n' => sub {$_[0]} );
1276 $subr{$op} = $subr{"$op="} = eval "sub {shift() $op shift()}";
1280 $subr{$op} = eval "sub {shift() $op shift()}";
1283 $subr{$op} = eval "sub {$op shift()}";
1285 $subr{'++'} = $subr{'+'};
1286 $subr{'--'} = $subr{'-'};