[LON-CAPA-cvs] cvs: loncom /types Queue.pm Stack.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 24 Apr 2003 15:12:40 -0000
albertel Thu Apr 24 11:12:40 2003 EDT
Modified files:
/loncom/types Queue.pm Stack.pm
Log:
- fixing pod
Index: loncom/types/Queue.pm
diff -u loncom/types/Queue.pm:1.3 loncom/types/Queue.pm:1.4
--- loncom/types/Queue.pm:1.3 Thu Apr 24 06:57:57 2003
+++ loncom/types/Queue.pm Thu Apr 24 11:12:40 2003
@@ -1,6 +1,6 @@
# Implement a simple queue in terms of a list.
#
-# $Id: Queue.pm,v 1.3 2003/04/24 10:57:57 foxr Exp $
+# $Id: Queue.pm,v 1.4 2003/04/24 15:12:40 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -87,6 +87,7 @@
=pod
+
=head1 Count
Returns number of items in a queue.
Index: loncom/types/Stack.pm
diff -u loncom/types/Stack.pm:1.3 loncom/types/Stack.pm:1.4
--- loncom/types/Stack.pm:1.3 Thu Apr 24 06:57:57 2003
+++ loncom/types/Stack.pm Thu Apr 24 11:12:40 2003
@@ -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 @@
}
=pod
+
=head 1
+
Returns the number of items on the stack.
=cut
+
sub Count {
my $self = shift;
my $elements = scalar(@$self);