MooseX::Types::Data::GUID - L<Data::GUID> related constraints and coercions for

MooseX-Types-Data-GUID documentation Contained in the MooseX-Types-Data-GUID distribution.

Index

Code Index:

NAME

Top

MooseX::Types::Data::GUID - Data::GUID related constraints and coercions for Moose

SYNOPSIS

Top

Export Example:

    use MooseX::Types::Data::GUID qw(TimeZone);

    has guid => (
        isa => GUID,
        is => "rw",
        coerce => 1,
    );

    Class->new( guid => "C6A9FE9A-72FE-11DD-B3B4-B2EC1DADD46B");

Namespaced Example:

    use MooseX::Types::Data::GUID;

    has guid => (
        isa => 'Data::GUID',
        is => "rw",
        coerce => 1,
    );

    Class->new( guid => "C6A9FE9A-72FE-11DD-B3B4-B2EC1DADD46B");

DESCRIPTION

Top

This module packages several Moose::Util::TypeConstraints with coercions, designed to work with Data::GUID.

AUTHOR

Top

Guillermo Roditi (groditi) <groditi@cpan.org>

COPYRIGHT

Top

Copyright (c) 2008 Guillermo Roditi. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

MooseX-Types-Data-GUID documentation Contained in the MooseX-Types-Data-GUID distribution. 
package MooseX::Types::Data::GUID;

use strict;
use warnings;

our $VERSION = '0.001000';

use Data::GUID;
use MooseX::Types -declare => [qw/ GUID /];
use Moose::Util::TypeConstraints;

class_type 'Data::GUID';
subtype GUID, as 'Data::GUID';

coerce 'Data::GUID' =>
  from Str => via { Data::GUID->from_any_string($_) };

coerce GUID,
  from Str => via { Data::GUID->from_any_string($_) };

1;

__END__;