[gitmo/Mouse.git] / t / 001_mouse / 042-override.t

#!/usr/bin/env perl
use strict;
use warnings;
use Test::More tests => 3;
use Test::Exception;

my @parent_calls;
my @child_calls;

do {
    package Parent;
    sub foo { push @parent_calls, [@_] }

    package Child;
    use Mouse;
    extends 'Parent';

    override foo => sub {
        my $self = shift;
        push @child_calls, [splice @_];
        super;
    };
};

Child->foo(10, 11);
is_deeply([splice @parent_calls], [[Child => 10, 11]]);
is_deeply([splice @child_calls], [[10, 11]]);

throws_ok {
    package Orphan; # :(
    use Mouse;
    override foo => sub { };
} qr/^You cannot override 'foo' because it has no super method/;
Commit	Line	Data
e6007308	1	#!/usr/bin/env perl
	2	use strict;
	3	use warnings;
	4	use Test::More tests => 3;
	5	use Test::Exception;
	6
	7	my @parent_calls;
	8	my @child_calls;
	9
	10	do {
	11	package Parent;
	12	sub foo { push @parent_calls, [@_] }
	13
	14	package Child;
	15	use Mouse;
	16	extends 'Parent';
	17
	18	override foo => sub {
	19	my $self = shift;
	20	push @child_calls, [splice @_];
	21	super;
	22	};
	23	};
	24
	25	Child->foo(10, 11);
	26	is_deeply([splice @parent_calls], [[Child => 10, 11]]);
	27	is_deeply([splice @child_calls], [[10, 11]]);
	28
	29	throws_ok {
	30	package Orphan; # :(
	31	use Mouse;
	32	override foo => sub { };
	33	} qr/^You cannot override 'foo' because it has no super method/;
	34