view release on metacpan or  search on metacpan

bin/git-hook-setup  view on Meta::CPAN

        my $count = 1;
        while (-e $backup) {
            $backup = catfile($dir, "$hook$count~");
            $count++;
        }
        system 'cp', $file, $backup;

        my $fh = $file->openw;
        print {$fh} $hooks->{$hook};
        close $fh;
        chmod 0755, $file;
    }
}

=head1 NAME

git-hook-setup - Copies hooks into their proper location

=head1 VERSION

This documentation refers to git-hook-setup version 1.1.20.

fatpack.pl  view on Meta::CPAN

        pod2usage( -verbose => 1 );
    }

    # do stuff here
    mkdir 'out';
    for my $file (path('bin')->children) {
        next if !-x $file;
        my $out = $file;
        $out =~ s/bin/out/;
        system "fatpack pack $file > $out";
        system "chmod +x $out";
    }

    return;
}

__DATA__

=head1 NAME

<Name> - <One-line description of commands purpose>