| 1 | |
1 | |
| 2 | #Construct for matching list. |
2 | #Construct for matching list. |
| 3 | #Inherits from List.pm |
3 | #Inherits from ChoiceList.pm |
| 4 | #VS 6/16/2000 |
4 | #VS 6/16/2000 |
| 5 | |
5 | |
| 6 | =head1 NAME |
6 | =head1 NAME |
| 7 | |
7 | |
| 8 | Match.pm -- sub-class of List that implements a matching list. |
8 | Match.pm -- sub-class of ChoiceList that implements a matching list. |
| 9 | |
9 | |
| 10 | All items accessed by $out = $ml -> item( $in ); |
10 | All items accessed by $out = $ml -> item( $in ); |
| 11 | |
11 | |
| 12 | =head1 SYNOPSIS |
12 | =head1 SYNOPSIS |
| 13 | |
13 | |
| … | |
… | |
| 184 | } |
184 | } |
| 185 | |
185 | |
| 186 | |
186 | |
| 187 | package Match; |
187 | package Match; |
| 188 | |
188 | |
| 189 | @Match::ISA = qw( List ); |
189 | @Match::ISA = qw( ChoiceList ); |
| 190 | |
190 | |
| 191 | # *** Subroutines which overload List.pm *** |
191 | # *** Subroutines which overload ChoiceList.pm *** |
| 192 | |
192 | |
| 193 | #sends letters for comparison instead of actual answers |
193 | #sends letters for comparison instead of actual answers |
| 194 | sub ra_correct_ans { |
194 | sub ra_correct_ans { |
| 195 | my $self = shift; |
195 | my $self = shift; |
| 196 | my @ans = &List::ALPHABET( @{$self->{inverted_shuffle}} ); |
196 | my @ans = &ChoiceList::ALPHABET( @{$self->{inverted_shuffle}} ); |
| 197 | \@ans; |
197 | \@ans; |
| 198 | } |
198 | } |
| 199 | |
199 | |
| 200 | 1; |
200 | 1; |
Parent Directory
| 
Revision Log
| 
Patch