view release on metacpan or  search on metacpan

script/git-perl  view on Meta::CPAN

#!/usr/bin/env perl

our $VERSION = "0.1.18";

# 0.1.14 - 2022-07-21 15:25
#        - further changelogs will be listed in ChangeLog file
# 0.1.13 - 2022-07-21 14:12
#        - fixed finding module listed on cli between recent and real repositories
#        - fixed tests - checking is repository cloned and where it is clone
#        - skip testing for Windows OS / not supported / linux only
#        - add comments in scripts for few tests
#        - fixed stderr leak when reading from nonexisting config file
# 0.1.12 - 2022.07.05
#        - rebuild distribution to fix changes from 0.1.11, related to Kwalitee
# 0.1.11 - 2022.07.05
#        - fixed Kwalitee Issues for distribution
#        - find module name from Makefile.PL in a different way, additionally
# 0.1.10 - 2022.07.03
#        - use HTTP::Tiny instead of curl
# 0.1.9 - 2022.07.03
#       - added tests
# 0.1.8 - 2022.07.03
#       - updated bugtracker link in Makefile.PL
# 0.1.7 - 2022.07.03
#       - added CONTRIBUTING.md
#       - fixed bugtracker in Makefile.PL
# 0.1.6 - 2022.07.03
#       - updated bugtracking/issues link in Makefile.PL
#       - added ChangeLog
# 0.1.5 - 2022.07.02
#       - updated documentation in script/git-perl and README.md to use head1 (head2 looks awful)
# 0.1.4 - 2022.07.02
#       - moved README into README.md, so it can be visible on github and not rendered by metacpan
#       - testing head2 instead of head1 on metacpan/github
# 0.1.3 - 2022.07.02
#       - updated AUTHOR information in README and git-perl
#       - updated link to git-perl from App::Git::Perl
#       - removed required strict and warnings from Makefile.PL
#       - updated Makefile.PL to reflect minimum required Perl version of 5.6.0 (using perlver command)
# 0.1.2 - 2022.07.02
#       - bumped version to 0.1.2, since I forgot to update version in lib/App/Git/Perl.pm
# 0.1.1 - 2022.07.02
#       - remove "use strict", and "use warnings"
#       - updated documentation in README and script/git-perl to show 'git-perl' and not 'git' in metacpan
# 0.1.0 - 2022.07.02
#       - initial commit

my $configfile = "$ENV{HOME}/.config/git-perl.conf";
my $gitdirs;

# init
$gitdirs = config("dir");
$gitdirs = "." if ( not $gitdirs );
system("mkdir -p \"$gitdirs\"") if ( not -d $gitdirs );

sub logger {
  print "LOG: @_\n";
}

sub usage {
  print <<"EOF";

git-perl $VERSION

Created to make you easier to monitor latest changes in perl modules, and make you collaborate faster.
Just put it somewhere in your \$PATH, and call like "git perl".

Prepared by Nedzad Hrnjica.

Usage:

  git perl recent                                     = shows recent list of changes from https://metacpan.org/recent
  git perl log BAYASHI/Object-Container-0.16          = git clone repository and show latest changes
  git perl log BAYASHI/Object-Container-0.16 remove   = remove cloned repository
  git perl log Log::Any                               = git clone repository and show latest changes
  git perl log Log::Any remove                        = remove cloned repository
  git perl clone BAYASHI/Object-Container-0.16        = git clone repository
  git perl clone BAYASHI/Object-Container-0.16 remove = remove cloned repository
  git perl clone Log::Any                             = git clone repository
  git perl clone Log::Any remove                      = remove cloned repository
  git perl local                                      = list cloned repositories
  git perl local object-container-perl                = list cloned repository 'object-container-perl'
  git perl local object-container-perl log            = show latest changes in repository
  git perl local object-container-perl remove         = remove local repository stored in 'object-container-perl'
  git perl local Log::Any                             = git clone repository ( get remote repository locally )
  git perl local Log::Any remove                      = remove cloned repository

  git perl config                                     = show current config ( from ~/.config/git-perl.conf )
  git perl config dir                                 = show value of 'dir' from config
  git perl config dir ~/git/perl                      = set value of 'dir' to '~/git/perl'
  git perl config --unset dir                         = remove variable 'dir' from config file