![[BACK]](/icons/back.gif){kind=icon}
Return to Stack.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / types|
Return to Stack.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 88 sub pop { | Line 88 sub pop { |
| return pop(@$self); | return pop(@$self); |
| } | } |
| =pod | |
| =head 1 | |
| Returns the number of items on the stack. | |
| =cut | |
| sub Count { | |
| my $self = shift; | |
| my $elements = scalar(@$self); | |
| return $elements; | |
| } | |
| 1; | 1; |