6 use Test::More tests => 1;
12 This tests a bug which is fixed in 0.22 by
13 localizing all the $@'s around any evals.
14 This a real pain to track down.
18 ALWAYS localize your globals :)
30 return bless {} => $class;
34 die "This didnt work";
39 foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
40 $method->{code}->($self);
46 my $c = Company->new();
49 ok($@, '... we die correctly with bad args');