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