6 use Test::More tests => 2;
14 This tests a bug which is fixed in 0.22 by
15 localizing all the $@'s around any evals.
16 This a real pain to track down.
20 ALWAYS localize your globals :)
32 return bless {} => $class;
36 die "This didnt work";
41 foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
42 $method->{code}->($self);
48 my $c = Company->new();
51 ok($@, '... we die correctly with bad args');