Select Code to Download

package MyTest::Base;
use strict;
...
}

1;

package MyTest::Lite;
no autovivification;
...
}

1;

use MyTest::Lite;
use strict;
...
$lite -> chkAccessRight ( "app2" ) ;
print "======================$/";
$lite -> tryAccess (  "app1"  );

Can't call method "SUPER::chkAccessRight" on an undefined value at MyT
+est/Lite.pm line 19.
Lite chkAccessRight app2
...
Lite tryAccess app1
Base tryAccess guest app1
Lite chkAccessRight guest app1