package WiX3::XML::Role::GeneratesGUID;

use 5.008001;
use Moose::Role;
use WiX3::Types qw(Host);

use version; our $VERSION = version->new('0.005')->numify;

has sitename => (
	is      => 'ro',
	isa     => Host,
	reader  => '_get_sitename',
	default => q{www.perl.invalid},
);

has _guidobject => (
	is       => 'ro',
	isa      => 'WiX3::XML::GeneratesGUID::Object',
	lazy     => 1,
	init_arg => undef,
	default  => sub {
		my $self = shift;
		return WiX3::XML::GeneratesGUID::Object->new(
			sitename => $self->_get_sitename() );
	},
	handles => [qw(generate_guid)],
);

no Moose::Role;

1;                                     # Magic true value required at end of module
