package MyTest::Base;
use strict;
no autovivification;

sub new {
	bless {}, shift;
}

sub  chkAccessRight {
	my $self = shift;
	print "Base chkAccessRight @_$/";
	my ( $usr, $service ) = @_ ;
	return 1;
}

sub tryAccess {
	my $self = shift;
	print "Base tryAccess @_$/";
	my ( $usr, $service ) = @_ ;
	return $self -> chkAccessRight (  $usr => $service ) ;
}

1;