package Inherit;

# Inherit class to experiment with private and protected methods

use warnings;
use strict;

use Base;
use vars qw(@ISA);
@ISA = qw(Base);

sub inheritSecret {
        $_[0]->private(@_[1 .. $#_]);
}

sub inheritNotSoSecret {
        $_[0]->protected(@_[1 .. $#_]);
}

1;