package My::Builder;
use Module::Build;
@ISA = qw(Module::Build);

        sub ACTION_code {
             use File::Spec::Functions;
             my $self = shift;
             $self->SUPER::ACTION_code(@_);
             # Copy the test scripts and then set the shebang line and make
             # sure that they're executable.
             my $from_dir = $self->localize_file_path("t/bin");
             my $to_dir = $self->localize_file_path("t/scripts");

             opendir DIR, $from_dir or die "Cannot open directory '$from_dir': $!\n";
             my @files = grep { !/^\./ } readdir DIR;
             close DIR;

             my @scripts;
             for my $bin (@files) {
                 my $script = "$to_dir/$bin";
                 push @scripts, $self->localize_file_path($script);
                 my $orig = $self->localize_file_path("t/bin/$bin");
                 $self->copy_if_modified(
                     from    => $orig,
                     to_dir  => $to_dir,
                     flatten => 1,
                 );
             }
             $self->fix_shebang_line(@scripts);
             $self->make_executable(@scripts);
             $self->add_to_cleanup($to_dir);
         }
     
1;