use base 'BaseClass';
# some stuff #

sub _protected_sub {
   my $self = shift->PROTECTED;
   print "This is a protected sub!";
}