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; }