[gitmo/Mouse.git] / t / 900_bug / 006_RT69939.t

#!perl -w

package Foo;
use Mouse;

has bar => (
    is => 'rw',

    trigger => sub {
        eval 'BEGIN{ die }';
    },
    default => sub {
        eval 'BEGIN{ die }';
        return 42;
    },
);

sub BUILDARGS {
    eval 'BEGIN{ die }';
    return {};
}

sub BUILD {
    eval 'BEGIN{ die }';
}

package main;

use Test::More tests => 3;

$@ = '(ERRSV)';

my $foo = Foo->new;
isa_ok $foo, 'Foo';
is $foo->bar, 42;
$foo->bar(100);
is $foo->bar, 100;
note("\$@=$@");
Commit	Line	Data
84787870	1	#!perl -w
	2
	3	package Foo;
	4	use Mouse;
	5
	6	has bar => (
	7	is => 'rw',
	8
	9	trigger => sub {
	10	eval 'BEGIN{ die }';
	11	},
	12	default => sub {
	13	eval 'BEGIN{ die }';
	14	return 42;
	15	},
	16	);
	17
	18	sub BUILDARGS {
	19	eval 'BEGIN{ die }';
	20	return {};
	21	}
	22
	23	sub BUILD {
	24	eval 'BEGIN{ die }';
	25	}
	26
	27	package main;
	28
	29	use Test::More tests => 3;
	30
	31	$@ = '(ERRSV)';
	32
	33	my $foo = Foo->new;
	34	isa_ok $foo, 'Foo';
	35	is $foo->bar, 42;
	36	$foo->bar(100);
	37	is $foo->bar, 100;
	38	note("\$@=$@");