[gitmo/Moose.git] / t / cmop / random_eval_bug.t

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;
Commit	Line	Data
38bf2a25	1	use strict;
	2	use warnings;
	3
	4	use Test::More;
	5
	6	use Class::MOP;
	7
	8	=pod
	9
	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.
	13
	14	Moral of the story:
	15
	16	ALWAYS localize your globals :)
	17
	18	=cut
	19
	20	{
	21	package Company;
	22	use strict;
	23	use warnings;
	24	use metaclass;
	25
	26	sub new {
	27	my ($class) = @_;
	28	return bless {} => $class;
	29	}
	30
	31	sub employees {
	32	die "This didnt work";
	33	}
	34
	35	sub DESTROY {
	36	my $self = shift;
	37	foreach
	38	my $method ( $self->meta->find_all_methods_by_name('DEMOLISH') ) {
	39	$method->{code}->($self);
	40	}
	41	}
	42	}
	43
	44	eval {
	45	my $c = Company->new();
	46	$c->employees();
	47	};
	48	ok( $@, '... we die correctly with bad args' );
	49
	50	done_testing;