dagolden-reversion-gist.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9 dagolden-reversion-gist
  10
  11 =head1 SYNOPSIS
  12
  13 perl $0 commitish
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--help|h!>
  24
  25 This help
  26
  27 =back
  28
  29 =head1 DESCRIPTION
  30
  31 Found at https://gist.github.com/dagolden/858394
  32
  33 =head1 AUTHOR
  34
  35 From shebang to Local Variables it is dagolden, the rest is mine.
  36
  37 =cut
  38
  39
  40 use FindBin;
  41 use lib "$FindBin::Bin/../lib";
  42 BEGIN {
  43     push @INC, qw(       );
  44 }
  45
  46 use Dumpvalue;
  47 use File::Basename qw(dirname);
  48 use File::Path qw(mkpath);
  49 use File::Spec;
  50 use File::Temp;
  51 use Getopt::Long;
  52 use Pod::Usage;
  53 use Hash::Util qw(lock_keys);
  54
  55 our %Opt;
  56 lock_keys %Opt, map { /([^=|!]+)/ } @opt;
  57 GetOptions(\%Opt,
  58            @opt,
  59           ) or pod2usage(1);
  60 if ($Opt{help}) {
  61     pod2usage(0);
  62 }
  63
  64 #!/usr/bin/env perl
  65 use 5.010;
  66 use strict;
  67 use warnings;
  68 use autodie;
  69 use Git::Wrapper;
  70 use File::Find::Rule ();
  71 use File::Find::Rule::Perl ();
  72
  73 my $tag = shift
  74 or die "Usage: $0 <tag>\n";
  75
  76 my $git = Git::Wrapper->new(".");
  77
  78 my @files = File::Find::Rule->perl_file->in("lib");
  79
  80 for my $file ( @files ) {
  81 my @diff = $git->diff( "$tag", "--", $file );
  82 next unless @diff;
  83 say "$file: " . scalar @diff . " diff lines";
  84 my @version_lines = map { " $_" } grep { /\$(?:(?:\w+::)+)*VERSION\s*=\s*/ } @diff;
  85 if ( @version_lines ) {
  86 say for @version_lines;
  87 }
  88 else {
  89 say " *** NEEDS VERSION BUMP! ***";
  90 }
  91 }
  92
  93
  94
  95 # Local Variables:
  96 # mode: cperl
  97 # cperl-indent-level: 4
  98 # End: