trAvis - MANAGER

Edit File: 030-has-plus.t

#!/usr/bin/perl use strict; use warnings; use Test::More tests => 3; use Test::Exception; do { package Class; use Mouse; has attr => ( is => 'rw', isa => 'Bool', ); package Child; use Mouse; extends 'Class'; has '+attr' => ( default => 1, ); }; my $obj = Class->new; ok(!$obj->attr, 'has + does not affect the superclass'); my $obj2 = Child->new; ok($obj2->attr, 'has + combines child attribute with parent'); do { package Child2; use Mouse; extends 'Class'; ::throws_ok { has '+nonexistent' => ( is => 'rw', ); } qr/Could not find an attribute by the name of 'nonexistent' to inherit from/; };