package MyModuleBuilder; use Module::Build; @ISA = qw(Module::Build); sub process_wsdl_files { my $self = shift; my $files = $self->_find_file_by_type('wsdl', 'lib'); while (my ($file, $dest) = each %$files) { $self->copy_if_modified(from => $file, to => File::Spec->catfile($self->blib, $dest) ); } } 1;