Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
DBD
/
Mock
/
StatementTrack
Upload
3 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
Iterator.pm
404 B
-rw-r--r--
2019-12-30 14:20:37
Edit
Del
Editing: Iterator.pm
(404 B)
Path: /usr/share/perl5/vendor_perl/DBD/Mock/StatementTrack/Iterator.pm
Back
package DBD::Mock::StatementTrack::Iterator; use strict; use warnings; sub new { my ( $class, $history ) = @_; bless { pointer => 0, history => $history || [] } => $class; } sub next { my ($self) = @_; return unless $self->{pointer} < scalar( @{ $self->{history} } ); return $self->{history}->[ $self->{pointer}++ ]; } sub reset { (shift)->{pointer} = 0 } 1;