Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options
 
PerlMonks  

Re: Restricting a scalar to certain values

by tobyink (Abbot)
on Jun 20, 2013 at 08:56 UTC ( #1039921=note: print w/ replies, xml ) Need Help??


in reply to Restricting a scalar to certain values

Type::Tie can be used to tie a scalar, array or hash variable to a type constraint. It supports Type::Tiny, Moose::Meta::TypeConstraint and MooseX::Types type constraints (and probably Mouse::Meta::TypeConstraint and MouseX::Types, though these are untested).

#!/usr/bin/env perl use strict; use warnings; use Type::Utils qw(enum); use Type::Tie; my $scalar; ttie $scalar, enum ["foo", "bar"]; $scalar = "foo"; # ok $scalar = "bar"; # ok $scalar = "baz"; # dies

Update: note though that tied scalars are significantly slower than untied. So an idea might be to tie your scalars in your development environment, and keep them untied in production. This can be achieved using something like:

use constant DEBUG => !!$ENV{DEVELOPMENT_SERVER}; my $scalar; ttie $scalar, enum ["foo", "bar"] if DEBUG;
package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name


Comment on Re: Restricting a scalar to certain values
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1039921]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others drinking their drinks and smoking their pipes about the Monastery: (5)
As of 2014-09-20 03:04 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    How do you remember the number of days in each month?











    Results (152 votes), past polls