Return to Queue.pm CVS log | Up to [LON-CAPA] / loncom / types |
version 1.2, 2003/04/18 06:10:47 | version 1.3, 2003/04/24 10:57:57 |
---|---|
Line 86 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; | |
} | |
1; | 1; |
=pod | =pod |