loncom/types/Queue.pm - diff

Return to Queue.pm CVS log

Up to [LON-CAPA] / loncom / types

-version 1.1, 2003/04/18 02:40:24
+version 1.4, 2003/04/24 15:12:40
  Line 1
- #
  #  Implement a simple queue in terms of a list.
  #
+ # $Id$
+ #
+ # Copyright Michigan State University Board of Trustees
+ #
+ # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
+ #
+ # LON-CAPA is free software; you can redistribute it and/or modify
+ # it under the terms of the GNU General Public License as published by
+ # the Free Software Foundation; either version 2 of the License, or
+ # (at your option) any later version.
+ #
+ # LON-CAPA is distributed in the hope that it will be useful,
+ # but WITHOUT ANY WARRANTY; without even the implied warranty of
+ # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ # GNU General Public License for more details.
+ #
+ # You should have received a copy of the GNU General Public License
+ # along with LON-CAPA; if not, write to the Free Software
+ # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
+ #
+ # /home/httpd/html/adm/gpl.txt
+ #
+ # http://www.lon-capa.org/
+ #
  =pod
- Line 63  sub dequeue {
+ Line 86  sub dequeue {
  }
+ =pod
+ =head1 Count
+ Returns number of items in a queue.
+ =cut
+ sub Count {
+     my $self = shift;
+     my $count = scalar(@$self);
+     return $count;
+ }
 ;
  =pod