CSJEWELL / Perl-Dist-WiX-1.500002 / lib / Perl / Dist / WiX / Types.pm 

            

              
1
—
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
—
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
—
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
—
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
—
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169

              
package Perl::Dist::WiX::Types;
=head1 NAME
Perl::Dist::WiX::Types - Public types used in Perl::Dist::WiX.
=head1 VERSION
This document describes Perl::Dist::WiX::Types version 1.500001.
=head1 SYNOPSIS
        use Perl::Dist::WiX::Types qw( ExistingDirectory ExistingFile TemplateObj );
=head1 DESCRIPTION
This module exists to provide Moose types that Perl::Dist::WiX and subclasses can use.
It may be updated or replaced at any time.
=head1 TYPES PROVIDED
=cut
use 5.010;
use MooseX::Types -declare => [ qw(
          ExistingDirectory ExistingFile TemplateObj
          _NoDoubleSlashes _NoSpaces _NoForwardSlashes _NoSlashAtEnd _NotRootDir
          _NoDots
          ExistingSubdirectory ExistingDirectory_Spaceless
          ExistingDirectory_SaneSlashes
          DirectoryRef DirectoryTag
          ) ];
use MooseX::Types::Moose qw( Str Object ArrayRef );
use MooseX::Types::Path::Class qw( Dir File );
use Template qw();
our $VERSION = '1.500001';
$VERSION =~ s/_//ms;
=head2 ExistingDirectory
        has bar => (
                is => 'ro',
                isa => ExistingDirectory,
                #...
        );
=cut
subtype ExistingDirectory,
  as Dir,
  where { -d "$_" },
  message {'Directory does not exist'};
subtype _NoDoubleSlashes,
  as ExistingDirectory,
  where { "$_" !~ m{\\\\}ms },
  message {'cannot contain two consecutive slashes'};
subtype _NoForwardSlashes,
  as _NoDoubleSlashes,
  where { "$_" !~ m{/}ms },
  message {'Forward slashes are not allowed'};
subtype _NoSlashAtEnd,
  as _NoForwardSlashes,
  where { "$_" !~ m{\\\z}ms },
  message {'Cannot have a slash at the end'};
subtype _NoDots,
  as _NoSlashAtEnd,
  where { "$_" !~ m{[.]}ms },
  message {'Cannot have a period'};
subtype ExistingDirectory_SaneSlashes, as _NoDots;
coerce ExistingDirectory_SaneSlashes,
  from Str,      via { to_Dir($_) },
  from ArrayRef, via { to_Dir($_) };
subtype _NoSpaces,
  as _NoDots,
  where { "$_" !~ m{\s}ms },
  message {'Spaces are not allowed'};
subtype ExistingDirectory_Spaceless, as _NoSpaces;
coerce ExistingDirectory_Spaceless,
  from Str,      via { to_Dir($_) },
  from ArrayRef, via { to_Dir($_) };
subtype _NotRootDir,
  as _NoDots,
  where { "$_" !~ m{:\z}ms },
  message {'Cannot be a root directory'};
subtype ExistingSubdirectory, as _NotRootDir;
coerce ExistingSubdirectory,
  from Str,      via { to_Dir($_) },
  from ArrayRef, via { to_Dir($_) };
=head2 ExistingFile
        has bar => (
                is => 'ro',
                isa => ExistingFile,
                #...
        );
=cut
subtype ExistingFile,
  as File,
  where { -f "$_" },
  message {'File does not exist'};
coerce ExistingFile,
  from Str,      via { to_File($_) },
  from ArrayRef, via { to_File($_) };
=head2 TemplateObj
        has bar => (
                is => 'ro',
                isa => TemplateObj,
                #...
        );
=cut
subtype TemplateObj,
  as Object,
  where { $_->isa('Template') },
  message {'Template is not the correct type of object'};
class_type DirectoryRef, { class => 'Perl::Dist::WiX::Tag::DirectoryRef' };
class_type DirectoryTag, { class => 'Perl::Dist::WiX::Tag::Directory' };
1;
__END__
=pod
=head1 SUPPORT
No support is available for this class.
=head1 AUTHOR
Curtis Jewell E<lt>csjewell@cpan.orgE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright 2009 - 2011 Curtis Jewell.
This program is free software; you can redistribute
it and/or modify it under the same terms as Perl itself.
The full text of the license can be found in the
LICENSE file included with this distribution.
=cut