File Coverage

blib/lib/Iterator/File/State/Interface.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	6	6	100.0
total	43	43	100.0

package Iterator::File::State::Interface;

## $Id: Interface.pm,v 1.5 2008/06/17 06:00:28 wdr1 Exp $

use 5.006;
use strict;
use warnings;

use Iterator::File::Utility;

our @ISA = qw(Iterator::File::Utility);
our $VERSION = substr(q$Revision: 1.5 $, 10);

our %default_config =
  (
   'update_frequency' => 1,
  );



sub new {
  my ($class, %config) = @_;

  %config = (%default_config, %config);
  my $self = $class->SUPER::new( %config );
  bless($self, $class);

  return $self;
}



sub initialize {
  my ($self) = @_;

  $self->{'marker'} = 0;
}



sub advance_marker {
  my ($self) = @_;

  return $self->set_marker( $self->marker() + 1 );
}



sub marker {
  my $self = shift;

  return $self->{'marker'};
}



sub set_marker {
  my $self = shift;
  my $num  = shift;

  $self->{'marker'} = $num;
}



sub finish {}


1;
__END__