use strict;
use warnings;

use Test::More;

use Class::MOP;

=pod

This tests a bug which is fixed in 0.22 by localizing all the $@'s around any
evals.

This a real pain to track down.

Moral of the story:

  ALWAYS localize your globals :)

=cut

{
    package Company;
    use strict;
    use warnings;
    use metaclass;

    sub new {
        my ($class) = @_;
        return bless {} => $class;
    }

    sub employees {
        die "This didnt work";
    }

    sub DESTROY {
        my $self = shift;
        foreach
            my $method ( $self->meta->find_all_methods_by_name('DEMOLISH') ) {
            $method->{code}->($self);
        }
    }
}

eval {
    my $c = Company->new();
    $c->employees();
};
ok( $@, '... we die correctly with bad args' );

done_testing;