projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
f76974cbb5da11c6b697c7acd41d4c40d5b0998d
[gitmo/Moose.git]
/
t
/
100_bugs
/
005_inline_reader_bug.t
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 Moose;
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