view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

    code => q{
             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 $to_dir = $self->localize_file_path("t/scripts");
                 my $from   = $self->localize_file_path("t/bin/mysql");
                 my $to     = $self->localize_file_path("$to_dir/mysql");
                 $self->copy_if_modified(
                     from    => $from,
                     to_dir  => $to_dir,
                     flatten => 1,
                 );
                 $self->fix_shebang_line($to);
                 $self->make_executable($to);
                 $self->add_to_cleanup($to_dir);
             }
         },
);