# NOTE: slightly modified code from the docs

package SomeClass;
use Attribute::Protected;

sub new { return bless {}, shift }

sub foo  : Public    { }
sub _bar : Private   { }
sub _baz : Protected { }

sub another {
      my $self = shift;
      $self->foo;               # OK
      $self->_bar;              # OK
      $self->_baz;              # OK
}

1;

package DerivedClass;
  @DerivedClass::ISA = qw(SomeClass);

sub yetanother {
      my $self = shift;
      $self->foo;               # OK
      $self->_bar;              # NG: private method
      $self->_baz;              # OK
}

1;

package main;

my $some = SomeClass->new;
   $some->foo;          # OK
   $some->_bar;         # NG: private method
   $some->_baz;         # NG: protected method