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;


syntax highlighted by Code2HTML, v. 0.9.1