Re: Best guess for data type


Don't ask to ask, just ask
	PerlMonks

Re: Best guess for data type

by tobyink (Canon)

on Apr 22, 2013 at 16:55 UTC ( [id://1029927]=note: print w/replies, xml )

Need Help??

in reply to Best guess for data type

use v5.10;
use strict;
use warnings;

use Types::Standard qw( ArrayRef Str Num Int );

my $arr = [ 1, 2, 3.3 ];

if ($arr ~~ ArrayRef[Int])
    { say "ArrayRef of Int" }

elsif ($arr ~~ ArrayRef[Num])
    { say "ArrayRef of Num" }

elsif ($arr ~~ ArrayRef[Str])
    { say "ArrayRef of Str" }
[download]

package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name