HOME


Mini Shell 1.0
DIR:/usr/share/doc/perl-namespace-clean/t/lib/
Upload File :
Current File : //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;