[p5sagit/namespace-clean.git] / t / lib / Inheritance.pm

package InheritanceParent;
use warnings;
use strict;

sub foo { 23 }

use namespace::clean;

sub bar { foo() }

package Inheritance;
use warnings;
use strict;

use base 'InheritanceParent';

sub baz { shift->bar }

use namespace::clean;

sub qux { baz(shift) }

1;
Commit	Line	Data
40aef9d6	1	package InheritanceParent;
	2	use warnings;
	3	use strict;
	4
	5	sub foo { 23 }
	6
	7	use namespace::clean;
	8
	9	sub bar { foo() }
	10
	11	package Inheritance;
	12	use warnings;
	13	use strict;
	14
	15	use base 'InheritanceParent';
	16
	17	sub baz { shift->bar }
	18
	19	use namespace::clean;
	20
	21	sub qux { baz(shift) }
	22
	23	1;