package Workflow::Persister::RandomId;

# $Id: RandomId.pm 316 2007-07-04 19:17:50Z jonasbn $

use strict;
use base qw( Class::Accessor );

$Workflow::Persister::RandomId::VERSION = '1.03';

my @FIELDS = qw( id_length );
__PACKAGE__->mk_accessors( @FIELDS );

sub new {
    my ( $class, $params ) = @_;
    my $self = bless( {}, $class );
    my $length = $params->{id_length} || 8;
    $self->id_length( $length );
    return $self;
}

sub pre_fetch_id {
    my ( $self, $dbh ) = @_;
    return join( '', map { chr( int( rand(26) ) + 65 ) } ( 1 .. $self->id_length ) );
}

sub post_fetch_id { return }

1;

__END__

=head1 NAME

Workflow::Persister::RandomId - Persister to generate random ID

=head1 SYNOPSIS

 <persister
     name="MyPersister"
     id_length="16"
 ...

=head1 DESCRIPTION

Implementation for any persister to generate a random ID string. You
can specify the length using the 'id_length' parameter, but normally
the default (8 characters) is sufficient.

=head2 METHODS

=head3 new

Instantiates a Workflow::Persister::RandomId object, this object can generate
randon Id's based on the 'id_length' parameter provided. This parameter defaults
to 8.

=head3 pre_fetch_id

L</pre_fetch_id> can then be used to generate/retrieve a random ID, generated
adhering to the length specified in the constructor call.

=head3 post_fetch_id

This method is unimplemented at this time, please see the TODO.

=head1 TODO

=over

=item * Implement L</post_fetch_id>

=back

=head1 COPYRIGHT

Copyright (c) 2003-2004 Chris Winters. All rights reserved.

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=head1 AUTHORS

Chris Winters E<lt>chris@cwinters.comE<gt>