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

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 2;

{
    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
    );
}

my $attr = SomeClass->meta->get_attribute('foo');
is($attr->get_value(SomeClass->new()), 'Six');
is(SomeClass->new()->foo, 'Six');
Commit	Line	Data
b2b106d7	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 2;
	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	coerce 'TextSix'
	18	=> from 'DigitSix'
	19	=> via { confess("Cannot live without 6 ($_)") unless /^6$/; 'Six' };
	20
	21	has foo => (
	22	is => 'ro',
	23	isa => 'TextSix',
	24	coerce => 1,
	25	default => 6,
	26	lazy => 1
	27	);
	28	}
	29
	30	my $attr = SomeClass->meta->get_attribute('foo');
	31	is($attr->get_value(SomeClass->new()), 'Six');
	32	is(SomeClass->new()->foo, 'Six');
	33