--- loncom/types/Stack.pm 2003/04/24 10:57:57 1.3 +++ loncom/types/Stack.pm 2003/04/24 15:12:40 1.4 @@ -1,6 +1,6 @@ # Implement a simple stack in terms of a list. # -# $Id: Stack.pm,v 1.3 2003/04/24 10:57:57 foxr Exp $ +# $Id: Stack.pm,v 1.4 2003/04/24 15:12:40 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -89,10 +89,13 @@ sub pop { } =pod + =head 1 + Returns the number of items on the stack. =cut + sub Count { my $self = shift; my $elements = scalar(@$self);