projects
/
gitmo/Moose.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
foo
[gitmo/Moose.git]
/
t
/
104_inline_reader_bug.t
1
#!/usr/bin/perl
2
3
use strict;
4
use warnings;
5
6
use Test::More tests => 2;
7
use Test::Exception;
8
9
BEGIN {
10
use_ok('Moose');
11
}
12
13
=pod
14
15
This was a bug, but it is fixed now. This
16
test makes sure it does not creep back in.
17
18
=cut
19
20
{
21
package Foo;
22
use Moose;
23
24
::lives_ok {
25
has 'bar' => (
26
is => 'ro',
27
isa => 'Int',
28
lazy => 1,
29
default => 10,
30
);
31
} '... this didnt die';
32
}
33