Return to Stack.pm CVS log | Up to [LON-CAPA] / loncom / types |
version 1.2, 2003/04/18 06:10:47 | version 1.4, 2003/04/24 15:12:40 |
---|---|
Line 88 sub pop { | Line 88 sub pop { |
return pop(@$self); | return pop(@$self); |
} | } |
=pod | |
=head 1 | |
Returns the number of items on the stack. | |
=cut | |
sub Count { | |
my $self = shift; | |
my $elements = scalar(@$self); | |
return $elements; | |
} | |
1; | 1; |