Hello Ilya,
I need your help. I have written an Parameter::Validate module. And now I would like to use it as you said.
use strict;
use lib '/home/uwe/cvs/perl';
use lib '/home/uwe/cvs/perl/module';
use Parameter::Validate;
use base 'CCS::Data::Datatype::base_class';
# parameter configuration
#my $pv = CCS::Data::Datatype::base_class->pv->clone;
my $pv = SUPER->pv->clone;
$pv->enable(qw(mandatory min_length max_length));
$pv->change(max_length => {max => 255, default => 255},
min_length => {max => 255});
sub pv { $pv; }
If I use the full qualified parent class name (CCS::Data::Datatype::base_class->pv) everything works like expected. But if I use the line with SUPER->pv I get an error: Can't locate object method "pv" via package "SUPER" (perhaps you forgot to load "SUPER"?) at /home/uwe/cvs/perl/CCS/Data/Datatype/String.pm line 16.
So, what is wrong with SUPER?
Thank you, Uwe