The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Log::Unrotate::Cursor;
BEGIN {
  $Log::Unrotate::Cursor::VERSION = '1.28';
}

use strict;
use warnings;

=head1 NAME

Log::Unrotate::Cursor - abstract unrotate cursor

=head1 VERSION

version 1.28

=head1 DECRIPTION

C<Log::Unrotate> keeps its position in persistent objects called cursors.

See C<Log::Unrotate::Cursor::File> for default cursor implementation.

=head1 METHODS

=over

=item B<read()>

Get hashref with position data.

Data usually contains I<Position>, I<Inode>, I<LastLine> and I<LogFile> keys.

=cut
sub read($) {
    die 'not implemented';
}

=item B<commit($position)>

Save new position into cursor.

=cut
sub commit($$) {
    die 'not implemented';
}

=item B<clean()>

Clean all data from cursor.

=cut
sub clean($) {
    die 'not implemented';
}

=item B<rollback()>

Rollback cursor to some previous value.

Returns 1 on success, 0 on fail.

=cut

sub rollback($) {
    return 0;
}

=back

=head1 AUTHOR

Vyacheslav Matjukhin <mmcleric@yandex-team.ru>

=cut

1;