Current File : //kunden/usr/share/doc/perl-namespace-clean/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;