[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / UUIDMaker / Win32 / Guidgen.pm

package DBIx::Class::UUIDMaker::Win32::Guidgen;
use base qw/DBIx::Class::UUIDMaker/;
use Win32::Guidgen ();

sub as_string {
    my $uuid = Win32::Guidgen::create();
    $uuid =~ s/(^\{|\}$)//;

    return $uuid;
};

1;
Commit	Line	Data
947acfd9	1	package DBIx::Class::UUIDMaker::Win32::Guidgen;
	2	use base qw/DBIx::Class::UUIDMaker/;
	3	use Win32::Guidgen ();
	4
	5	sub as_string {
	6	my $uuid = Win32::Guidgen::create();
	7	$uuid =~ s/(^\{\|\}$)//;
	8
	9	return $uuid;
	10	};
	11
	12	1;