1package Scalar::Does::MooseTypes;
2
3use strict;
4use warnings;
5
6our $AUTHORITY = 'cpan:TOBYINK';
7our $VERSION   = '0.203';
8
9use base "Exporter::Tiny";
10
11BEGIN {
12	my @NAMES = qw(
13		Any Item Undef Defined Bool Value Ref Str Num Int CodeRef RegexpRef
14		GlobRef FileHandle Object ClassName RoleName ScalarRef ArrayRef HashRef
15	);
16	require constant;
17	require Types::Standard;
18	constant->import(+{ map +( $_ => "Types::Standard"->get_type($_) ), @NAMES });
19
20	our @EXPORT_OK   = @NAMES;
21	our %EXPORT_TAGS = (
22		constants      => \@NAMES,
23		only_constants => \@NAMES,
24	);
25}
26
271;
28
29__END__
30
31=head1 NAME
32
33Scalar::Does::MooseTypes - (DEPRECATED) additional constants for Scalar::Does, inspired by the built-in Moose type constraints
34
35=head1 SYNOPSIS
36
37  use 5.010;
38  use Scalar::Does qw(does);
39  use Scalar::Does::MooseTypes -all;
40
41  my $var = [];
42  if (does $var, ArrayRef) {
43    say "It's an arrayref!";
44  }
45
46=head1 STATUS
47
48This module is deprecated; use L<Types::Standard> instead:
49
50  use 5.010;
51  use Scalar::Does qw(does);
52  use Types::Standard qw(ArrayRef);
53
54  my $var = [];
55  if (does $var, ArrayRef) {
56    say "It's an arrayref!";
57  }
58
59=head1 DESCRIPTION
60
61=head2 Constants
62
63=over
64
65=item C<Any>
66
67=item C<Item>
68
69=item C<Bool>
70
71=item C<Undef>
72
73=item C<Defined>
74
75=item C<Value>
76
77=item C<Str>
78
79=item C<Num>
80
81=item C<Int>
82
83=item C<ClassName>
84
85=item C<RoleName>
86
87=item C<Ref>
88
89=item C<ScalarRef>
90
91=item C<ArrayRef>
92
93=item C<HashRef>
94
95=item C<CodeRef>
96
97=item C<RegexpRef>
98
99=item C<GlobRef>
100
101=item C<FileHandle>
102
103=item C<Object>
104
105=back
106
107=head1 SEE ALSO
108
109L<Types::Standard>.
110
111L<Scalar::Does>,
112L<Moose::Util::TypeConstraints>.
113
114=head1 AUTHOR
115
116Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
117
118=head1 COPYRIGHT AND LICENCE
119
120This software is copyright (c) 2012-2014, 2017 by Toby Inkster.
121
122This is free software; you can redistribute it and/or modify it under
123the same terms as the Perl 5 programming language system itself.
124
125=head1 DISCLAIMER OF WARRANTIES
126
127THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
128WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
129MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
130
131