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