DBIx::Class::UUIDColumns (3pm)

In your DBIx::Class table class:

  _\|_PACKAGE_\|_->load_components(qw/UUIDColumns ... Core/);
  _\|_PACKAGE_\|_->uuid_columns('artist_id');

Note: The component needs to be loaded before Core.

This DBIx::Class component resembles the behaviour of Class::DBI::UUID, to make some columns implicitly created as uuid.

When loaded, \*(C`UUIDColumns\*(C' will search for a suitable uuid generation module from the following list of supported modules:

Data::UUID APR::UUID* UUID Win32::Guidgen Win32API::GUID

If no supporting module can be found, an exception will be thrown.

*APR::UUID will not be loaded under OpenBSD due to an as yet unidentified \s-1XS\s0 issue.

If you would like to use a specific module, you can set \*(L"uuid_class\*(R":

_\|_PACKAGE_\|_->uuid_class('::Data::UUID'); _\|_PACKAGE_\|_->uuid_class('MyUUIDGenerator');

get_uuid

Returns a uuid string from the current uuid_maker.

insert

Inserts a new uuid string into each column in \*(L"uuid_columns\*(R".

uuid_columns

Gets/sets the list of columns to be filled with uuids during insert.

_\|_PACKAGE_\|_->uuid_columns('artist_id');

uuid_class

Takes the name of a UUIDMaker subclass to be used for uuid value generation. This can be a fully qualified class name, or a shortcut name starting with :: that matches one of the available DBIx::Class::UUIDColumns::UUIDMaker subclasses:

_\|_PACKAGE_\|_->uuid_class('CustomUUIDGenerator'); # loads CustomeUUIDGenerator

_\|_PACKAGE_\|_->uuid_class('::Data::UUID'); # loads DBIx::Class::UUIDMaker::Data::UUID;

Note that \*(C`uuid_class\*(C' checks to see that the specified class isa DBIx::Class::UUIDColumns::UUIDMaker subclass and throws and exception if it isn't.

uuid_maker

Returns the current UUIDMaker instance for the given module.

my $uuid = _\|_PACKAGE_\|_->uuid_maker->as_string;

DBIx::Class::UUIDColumns::UUIDMaker

Chia-liang Kao <[email protected]>

Chris Laco <[email protected]>

You may distribute this code under the same terms as Perl itself.