projects
/
gitmo/Mouse.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
Fix prototype on message {...}
[gitmo/Mouse.git]
/
t
/
602-mouse-tiny.t
1
#!/usr/bin/env perl
2
use strict;
3
use warnings;
4
use Test::More tests => 2;
5
6
do {
7
package Class;
8
use Mouse;
9
10
has attr => (
11
is => 'rw',
12
);
13
14
package Class2;
15
use Mouse::Tiny;
16
17
has attr => (
18
is => 'rw',
19
);
20
};
21
22
is(Class->new(attr => 'a')->attr, 'a');
23
is(Class2->new(attr => 'b')->attr, 'b');
24