[gitmo/Mouse.git] / t / 040_type_constraints / 025_type_coersion_on_lazy_attributes.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;

{
    package SomeClass;
    use Mouse;
    use Mouse::Util::TypeConstraints;

    subtype 'DigitSix' => as 'Num'
        => where { /^6$/ };
    subtype 'TextSix' => as 'Str'
        => where { /Six/i };

    coerce 'TextSix'
        => from 'DigitSix'
        => via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };

    has foo => (
        is      => 'ro',
        isa     => 'TextSix',
        coerce  => 1,
        default => 6,
        lazy    => 1
    );
}

is(SomeClass->new()->foo, 'Six');
Commit	Line	Data
62225dfe	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 1;
	7
	8	{
	9	package SomeClass;
	10	use Mouse;
	11	use Mouse::Util::TypeConstraints;
	12
	13	subtype 'DigitSix' => as 'Num'
	14	=> where { /^6$/ };
	15	subtype 'TextSix' => as 'Str'
	16	=> where { /Six/i };
	17
	18	coerce 'TextSix'
	19	=> from 'DigitSix'
	20	=> via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
	21
	22	has foo => (
	23	is => 'ro',
	24	isa => 'TextSix',
	25	coerce => 1,
	26	default => 6,
	27	lazy => 1
	28	);
	29	}
	30
	31	is(SomeClass->new()->foo, 'Six');
	32
	33