return 1;
}
-sub back_up
-{
- my $self = shift;
-
- return 0 if $self->{NO_PARAMS};
-
- $self->exit_scope;
-
- $self->{INDEX}--;
-
- $self->_do_globals;
-
- $self->enter_scope;
-
- return 1;
-}
-
-sub reset
-{
- my $self = shift;
-
- return 0 if $self->{NO_PARAMS};
-
- $self->{INDEX} = -1;
-
- return 1;
-}
+# This method doesn't seem to be used ...
+# If it is reinstated, here's the POD for it
+#=head2 back_up
+#
+#Go to the previous iteration of the loop
+#
+#sub back_up
+#{
+# my $self = shift;
+#
+# return 0 if $self->{NO_PARAMS};
+#
+# $self->exit_scope;
+#
+# $self->{INDEX}--;
+#
+# $self->_do_globals;
+#
+# $self->enter_scope;
+#
+# return 1;
+#}
+
+# This method doesn't seem to be used ...
+# If it is reinstated, here's the POD for it
+#=head2 reset
+#
+#Resets the iterator
+#
+#sub reset
+#{
+# my $self = shift;
+#
+# return 0 if $self->{NO_PARAMS};
+#
+# $self->{INDEX} = -1;
+#
+# return 1;
+#}
1;
__END__
=head1 METHODS
-=head2 back_up
-
-Go to the previous iteration of the loop
-
=head2 can_continue
Determines if the iterator can continue.
Go to the next iteration of the loop
-=head2 reset
-
-Resets the iterator
-
=head1 AUTHOR
Rob Kinyon (rob.kinyon@gmail.com)