package My::Builder; use Module::Build; @ISA = qw(Module::Build); sub ACTION_build { my $self = shift ; $self->add_build_element('jquery_js') ; $self->SUPER::ACTION_build(@_) ; # And copy all of the files #print "END OF ACTION_build!\n"; } sub process_jquery_js_files { my $self = shift ; use File::Find ; my @list ; find({wanted => sub { push @list ,$File::Find::name } , no_chdir => 1},"lib/JQuery/jquery_js","lib/JQuery/cgi-bin"); for my $src (@list) { next if -d $src ; next if $src =~ /~$/ ; $self->copy_if_modified( from => $src, to_dir => 'blib') ; } #print "PROCESSED JS FILES\n" ; } 1;