trAvis - MANAGER

Edit File: 601-tiny-mouse.t

#!/usr/bin/perl use strict; use warnings; use Test::More tests => 2; do { package Class; use Mouse::Tiny; has attr => ( is => 'rw', ); package Class2; use Mouse; has attr => ( is => 'rw', ); }; is(Class->new(attr => 'a')->attr, 'a'); is(Class2->new(attr => 'b')->attr, 'b');