4 use Test::More tests => 1;
10 This tests a bug which is fixed in 0.22 by
11 localizing all the $@'s around any evals.
12 This a real pain to track down.
16 ALWAYS localize your globals :)
28 return bless {} => $class;
32 die "This didnt work";
37 foreach my $method ($self->meta->find_all_methods_by_name('DEMOLISH')) {
38 $method->{code}->($self);
44 my $c = Company->new();
47 ok($@, '... we die correctly with bad args');