1Type::Tiny::Enum(3) User Contributed Perl Documentation Type::Tiny::Enum(3)
2
3
4
6 Type::Tiny::Enum - string enum type constraints
7
9 This module is covered by the Type-Tiny stability policy.
10
12 Enum type constraints.
13
14 This package inherits from Type::Tiny; see that for most documentation.
15 Major differences are listed below:
16
17 Attributes
18 "values"
19 Arrayref of allowable value strings. Non-string values (e.g.
20 objects with overloading) will be stringified in the constructor.
21
22 "constraint"
23 Unlike Type::Tiny, you cannot pass a constraint coderef to the
24 constructor. Instead rely on the default.
25
26 "inlined"
27 Unlike Type::Tiny, you cannot pass an inlining coderef to the
28 constructor. Instead rely on the default.
29
30 "parent"
31 Parent is always Types::Standard::Str, and cannot be passed to the
32 constructor.
33
34 "unique_values"
35 The list of "values" but sorted and with duplicates removed. This
36 cannot be passed to the constructor.
37
38 "coercion"
39 If "coercion => 1" is passed to the constructor, the type will have
40 a coercion using the "closest_match" method.
41
42 Methods
43 "as_regexp"
44 Returns the enum as a regexp which strings can be checked against.
45 If you're checking a lot of strings, then using this regexp might
46 be faster than checking each string against
47
48 my $enum = Type::Tiny::Enum->new(...);
49 my $check = $enum->compiled_check;
50 my $re = $enum->as_regexp;
51
52 # fast
53 my @valid_tokens = grep $enum->check($_), @all_tokens;
54
55 # faster
56 my @valid_tokens = grep $check->($_), @all_tokens;
57
58 # fastest
59 my @valid_tokens = grep /$re/, @all_tokens;
60
61 You can get a case-insensitive regexp using
62 "$enum->as_regexp('i')".
63
64 "closet_match"
65 Returns the closest match in the enum for a string.
66
67 my $enum = Type::Tiny::Enum->new(
68 value => [ qw( foo bar baz quux ) ],
69 );
70
71 say $enum->closest_match("FO"); # ==> foo
72
73 It will try to find an exact match first, fall back to a case-
74 insensitive match, if it still can't find one, will try to find a
75 head substring match, and finally, if given an integer, will use
76 that as an index.
77
78 my $enum = Type::Tiny::Enum->new(
79 value => [ qw( foo bar baz quux ) ],
80 );
81
82 say $enum->closest_match( 0 ); # ==> foo
83 say $enum->closest_match( 1 ); # ==> bar
84 say $enum->closest_match( 2 ); # ==> baz
85 say $enum->closest_match( -1 ); # ==> quux
86
87 Overloading
88 • Arrayrefification calls "values".
89
91 Please report any bugs to
92 <https://github.com/tobyink/p5-type-tiny/issues>.
93
95 Type::Tiny::Manual.
96
97 Type::Tiny.
98
99 Moose::Meta::TypeConstraint::Enum.
100
102 Toby Inkster <tobyink@cpan.org>.
103
105 This software is copyright (c) 2013-2014, 2017-2021 by Toby Inkster.
106
107 This is free software; you can redistribute it and/or modify it under
108 the same terms as the Perl 5 programming language system itself.
109
111 THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
112 WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
113 MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.
114
115
116
117perl v5.32.1 2021-04-27 Type::Tiny::Enum(3)