t/lib/Inheritance.pm

   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;