—package
Workflow::Persister::UUID;
use
warnings;
use
strict;
use
v5.14.0;
use
Data::UUID;
$Workflow::Persister::UUID::VERSION
=
'2.04'
;
sub
new {
my
(
$class
,
$params
) =
@_
;
my
$self
=
bless
{
gen
=> Data::UUID->new() },
$class
;
return
$self
;
}
sub
pre_fetch_id {
my
(
$self
,
$dbh
) =
@_
;
return
$self
->{gen}->create_str();
}
sub
post_fetch_id {
return
}
1;
__END__
=pod
=head1 NAME
Workflow::Persister::UUID - Persister to generate Universally Unique Identifiers
=head1 VERSION
This documentation describes version 2.04 of this package
=head1 SYNOPSIS
<persister
name="MyPersister"
use_uuid="yes"
...
=head1 DESCRIPTION
Implementation for any persister to generate a UUID/GUID ID
string. The resulting string is 36 characters long and, according to
the implementation docs, "is guaranteed to be different from all other
UUIDs/GUIDs generated until 3400 CE."
This uses the L<Data::UUID> module to generate the UUID string, so
look there if you are curious about the algorithm, efficiency, etc.
=head2 METHODS
=head3 new
Instantiates a Workflow::Persister::UUID object, which is actually an
encapsulation of L<Data::UUID>.
=head3 pre_fetch_id
L</pre_fetch_id> can then be used to generate/retrieve a unique ID, generated
by L<Data::UUID>.
=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 SEE ALSO
=over
=item L<Data::UUID>
=back
=head1 COPYRIGHT
Copyright (c) 2003-2021 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.
Please see the F<LICENSE>
=head1 AUTHORS
Please see L<Workflow>
=cut