File Coverage

lib/Wx/Perl/EntryList/FwBwIterator.pm

Criterion	Covered	Total	%
statement	6	12	50.0
branch	0	4	0.0
condition			n/a
subroutine	2	4	50.0
pod	2	2	100.0
total	10	22	45.4

package Wx::Perl::EntryList::FwBwIterator;

=head1 NAME

Wx::Perl::EntryList::FwBwIterator - iterate over Wx::Perl::EntryList sequentially

=head1 SYNOPSIS

See L.

=head1 DESCRIPTION

A C subclass that allows sequential
iteration over an entry list.

=head1 METHODS

=cut

use strict;
use base qw(Wx::Perl::EntryList::Iterator);

=head2 next_entry

  $it->next_entry;

Moves the iterator to the next entry of the list.  Does nothing if the
iterator points at the end of the list.

=cut

sub next_entry {
    my( $self ) = @_;
    return if $self->at_end;

    $self->current( $self->current + 1 );
}

=head2 previous_entry

  $it->previous_entry;

Moves the iterator to the previous entry of the list.  Does nothing if
the iterator points at the beginning of the list.

=cut

sub previous_entry {
    my( $self ) = @_;
    return if $self->at_start;

    $self->current( $self->current - 1 );
}

1;