#!/usr/local/bin/perl -w
use strict;

package Tutu;

my $protected = sub {
  my $self = shift;

  "inside Tutu::tutu!\n"
};

sub plim {
  my $self = shift;

  local *protected = $protected;

  print "Accessing 'protected' as a method: "
        .$self->protected();
}

sub new {
  bless {}, $_[0];
}

package SubTutu;
our @ISA = qw{Tutu};

# SubTutu can overwrite 'protected'
sub protected {
  my $self = shift;

  "inside overwritten tutu!\n"
};

package main;

my $obj = SubTutu->new();

$obj->plim();

print(Tutu->can('protected')?
         (Tutu::protected()."\n")
       : "main does not even know of 'Tutu::protected'\n"
);

$obj->plim();

# Let us provoke an exception
Tutu::protected();