Re: RFC 188 (v1) Objects : Private keys and methods

[Kenneth Lee]

>         package Derived;
>         use base 'Base';
>                 
>         sub new {
>                 my ($class, $derdatum, @basedata) = @_;
>                 my $self = $class->SUPER::new(@basedata);
>                 private $self->{data} = $derdata;
                                          ^^^^^^^^ 
                                          should be $derdatum here?

>                 return $self;
>         }
> 
>         sub data { return $_[0]->{data} };      # Derived::data