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