[gitmo/Mouse.git] / t / 100_bugs / 005_inline_reader_bug.t

#!/usr/bin/perl

use strict;
use warnings;

use Test::More tests => 1;
use Test::Exception;


=pod

This was a bug, but it is fixed now. This
test makes sure it does not creep back in.

=cut

{
    package Foo;
    use Mouse;

    ::lives_ok {
        has 'bar' => (
            is      => 'ro',
            isa     => 'Int',
            lazy    => 1,
            default => 10,
        );
    } '... this didnt die';
}
Commit	Line	Data
4c98ebb0	1	#!/usr/bin/perl
	2
	3	use strict;
	4	use warnings;
	5
	6	use Test::More tests => 1;
	7	use Test::Exception;
	8
	9
	10
	11	=pod
	12
	13	This was a bug, but it is fixed now. This
	14	test makes sure it does not creep back in.
	15
	16	=cut
	17
	18	{
	19	package Foo;
	20	use Mouse;
	21
	22	::lives_ok {
	23	has 'bar' => (
	24	is => 'ro',
	25	isa => 'Int',
	26	lazy => 1,
	27	default => 10,
	28	);
	29	} '... this didnt die';
	30	}
	31