NAME
List::History - a previous/current/next list of objects
ABOUT
This is a history list much like what is implemented in most major browsers.
The position pointer could be in one of several states:
prev current next
------- ------- --------
0 0 0 just started
1 0 0 clicked a new link
0 1 1 clicked once and went back
1 1 0 went back (or forward to end)
1 1 1 went back twice or more
In other words, there is not a current moment unless you remember()
it. The state is saved just before the user leaves the current page.
SYNOPSIS
new
my %details = (
foo => 1, # gives moment foo(), get_foo(), and set_foo()
bar => 1, # etc.
);
my $hist = List::History->new(moment_spec => {%details});
The moment_spec
argument defines the attributes for the moment class, which allows you to use accessors on the stored hashref. Each moment class is particular to a given history object. This is generated for you by the constructor. The values in the hash are currently ignored, but will eventually become some sort of typemap.
Moment-Making Methods
add
Add a moment to the history. $hist->has_current
will always be false after this method is called.
$hist->add(%moment_data);
remember
Creates a moment and either replaces the current moment or else makes this one current. (You'll need to call this before going back.)
$hist->remember(%moment_data);
Boolean Methods
These return true if the history has a moment in the given slot.
has_current
my $bool = $hist->has_current;
has_next
my $bool = $hist->has_next;
has_prev
my $bool = $hist->has_prev;
Manipulation Methods
foreward
my $moment = $hist->foreward;
backward
my $moment = $hist->backward;
get_list
my @list = $hist->get_list;
get_current
my $moment = $hist->get_current;
get_moment
my $moment = $hist->get_moment($index);
clear_future
This is called automatically by add()
. Clears the current and future item.
$hist->clear_future;
Convenience
moment
This will typically not be needed since add() and remember() call it for you.
my $moment = $self->moment(%moment_data);
Private
_list
my $list = $hist->_list;
_inc_pos
$self->_inc_pos($number);
AUTHOR
Eric Wilhelm <ewilhelm at cpan dot org>
http://scratchcomputing.com/
COPYRIGHT
Copyright (C) 2006 Eric L. Wilhelm and OSoft, All Rights Reserved.
NO WARRANTY
Absolutely, positively NO WARRANTY, neither express or implied, is offered with this software. You use this software at your own risk. In case of loss, no person or entity owes you anything whatsoever. You have been warned.
LICENSE
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.