File Coverage

blib/lib/DWH_File/ID_Mill.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition	3	5	60.0
subroutine	6	6	100.0
pod	0	3	0.0
total	29	34	85.2

package DWH_File::ID_Mill;

use warnings;
use strict;
use vars qw( @ISA $VERSION );

@ISA = qw(  );
$VERSION = 0.01;

sub new {
    my ( $this, $kernel, $property ) = @_;
    my $class = ref $this || $this;
    my $current = $kernel->fetch_property( $property );
    $current ||= 0;
    my $self = { current => $current,
                 kernel => $kernel,
                 property => $property,
                };
    bless $self, $class;
    return $self;
}

sub next {
    $_[ 0 ]->{ current }++;
    return $_[ 0 ]->{ current };
}

sub save {
    my ( $self ) = @_;
    $self->{ kernel }->store_property( $self->{ property },
				       $self->{ current } );
}

1;

__END__