| … | |
… | |
| 185 | |
185 | |
| 186 | #use strict; |
186 | #use strict; |
| 187 | package Multiple; |
187 | package Multiple; |
| 188 | |
188 | |
| 189 | @Multiple::ISA = undef; |
189 | @Multiple::ISA = undef; |
| 190 | require "${Global::mainDirectory}courseScripts/List.pm"; |
190 | #require "${Global::mainDirectory}courseScripts/List.pm"; |
| 191 | @Multiple::ISA = qw( Exporter List ); |
191 | @Multiple::ISA = qw( Exporter List ); |
| 192 | |
192 | |
| 193 | # *** Subroutines which overload List.pm *** |
193 | # *** Subroutines which overload List.pm *** |
| 194 | sub choose { warn "Multiple choice does not support choosing answers.\n(You can't use \$mc->choose().)"; } |
194 | sub choose { warn "Multiple choice does not support choosing answers.\n(You can't use \$mc->choose().)"; } |
| 195 | sub choose_extra { warn "Multiple choice does not support choosing answers.\n(You can't use \$mc->choose_extra().)"; } |
195 | sub choose_extra { warn "Multiple choice does not support choosing answers.\n(You can't use \$mc->choose_extra().)"; } |