view release on metacpan or  search on metacpan

lib/Bot/Net/Script/Net.pm  view on Meta::CPAN

    my $bin    = $FindBin::Bin;
    my $script = basename($0);

    # Get ready to copy
    my $source_file = File::Spec->catfile($bin, $script);
    my $dest_file   = File::Spec->catfile($self->dist_name, 'bin', $script);

    # Copy and make it executable
    print "Copying in $dest_file...\n";
    copy($source_file, $dest_file);
    chmod 0555, $dest_file;

    # If on a DOSish platform make bat file too
    if (-e $source_file.'.bat') {
        print "Copying in $dest_file.bat...\n";
        copy($source_file.'.bat', $dest_file.'.bat');
        chmod 0555, $dest_file.'.bat';
    }
}

sub _write_makefile {
    my $self = shift;

    my $makefile = File::Spec->catfile($self->dist_name, 'Makefile.PL');

    print "Creating $makefile...\n";
    open my $makefh, '>', $makefile