in reply to Imported symbol names
Update:my @functions = @{ $CGI::EXPORT_TAGS{':form'} };
BEGIN { no strict 'refs'; foreach my $function_name ( @{ $CGI::EXPORT_TAGS{':form'}} ) { *{$function_name} = sub { my $self = shift @_; my %args = @_; if ( exists($args{-page}) && exists($args{-param}) ) { $args{-name} = $self->CreateRawFieldName( -page => $args{-page}, -param => $args{-param} ); delete $args{-page}; delete $args{-param}; } my $parent_call = 'SUPER::' . $function_name; return $self->$parent_call(%args); } } use strict; }
|
|---|