Name for Mouse::Role
[gitmo/Mouse.git] / t / 600-tiny-tiny.t
CommitLineData
30f45363 1#!/usr/bin/env perl
2use strict;
3use warnings;
4use Test::More tests => 2;
5
6do {
7 package Class;
8 use Mouse::Tiny;
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
22is(Class->new(attr => 'a')->attr, 'a');
23is(Class2->new(attr => 'b')->attr, 'b');
24