lib/Packaging/Tools/Plugin/pkgsrc.pm

   1 package Packaging::Tools::Plugin::pkgsrc;
   2
   3 use 5.008;
   4 use strict;
   5 use warnings;
   6
   7 use Carp qw(carp croak);
   8 use Carp::Assert qw(affirm);
   9 use Cwd qw();
  10 use File::Basename qw();
  11 use File::Spec qw();
  12 use File::Find::Rule qw(find);
  13 use File::pushd;
  14 use IO::CaptureOutput qw(capture_exec);
  15
  16 # make it optional - with cache only ...
  17 use DateTime;
  18 use File::Find::Rule::Age;
  19
  20 use Moo;
  21 use namespace::clean;
  22
  23 extends qw(Packaging::Tools::Plugin);
  24
  25 =head1 NAME
  26
  27 Packaging::Tools::Plugin::pkgsrc - Support tools packagers packaging Perl 5 modules
  28
  29 =cut
  30
  31 our $VERSION = '0.001';
  32
  33 =head1 SYNOPSIS
  34
  35 =head1 SUBROUTINES/METHODS
  36
  37 =cut
  38
  39 has 'make' => (
  40                 is       => 'ro',
  41                 isa      => 'Str',
  42                 required => 1
  43               );
  44 has 'pkg_info_cmd' => (
  45                         is       => 'ro',
  46                         isa      => 'Str',
  47                         required => 1
  48                       );
  49 has 'pkgsrcdir' => (
  50                      is      => 'ro',
  51                      isa     => 'Str',
  52                      builder => '_find_pkgsrc_dir'
  53                    );
  54
  55 sub _find_pkgsrc_dir
  56 {
  57     defined( $ENV{PKGSRCDIR} ) and return $ENV{PKGSRCDIR};
  58
  59     my $self = $_[0];
  60     foreach my $dir (qw(. .. ../.. /usr/pkgsrc))
  61     {
  62         -d $dir
  63           and -f File::Spec->catfile( $dir, "mk", "bsd.pkg.mk" )
  64           and return $self->{pkgsrcdir} = Cwd::abs_path($dir);
  65     }
  66
  67     return;
  68 }
  69
  70 sub _get_pkg_vars
  71 {
  72     my ( $self, $pkg_loc, @varnames ) = @_;
  73     my $varnames = join( " ", @varnames );
  74     my $last_dir = pushd($pkg_loc);
  75     my ( $stdout, $stderr, $success, $exit_code ) =
  76       capture_exec( $self->{MAKE}, "show-vars", "VARNAMES=$varnames" );
  77     if ( $success and 0 == $exit_code )
  78     {
  79         chomp $stdout;
  80         my @vals = split( "\n", $stdout );
  81         return @vals;
  82     }
  83
  84     die $stderr;
  85 }
  86
  87 =head2 find_installed_packages
  88
  89 =cut
  90
  91 sub find_installed_packages
  92 {
  93     my $self = $_[0];
  94
  95     -x $self->pkg_info_cmd or croak( "Can't exec " . $self->pkg_info_cmd . ": $!" );
  96     my ( $stdout, $stderr, $success, $exit_code ) = capture_exec( $self->pkg_info_cmd );
  97     $success or croak( "Error running " . $self->pkg_info_cmd . ": $stderr" );
  98     chomp $stdout;
  99     my %havepkgs =
 100       map { $_ =~ m/^(.*)-(v?[0-9].*?)$/ ? ( $1 => $2 ) : ( $_ => 0E0 ) }
 101       map { ( split( m/\s+/, $_ ) )[0] } grep { 0 == index( $_, 'p5-' ) } split( "\n", $stdout );
 102
 103     return \%havepkgs;
 104 }
 105
 106 =head2 _find_packaged_modules
 107
 108 =cut
 109
 110 sub _find_packaged_modules
 111 {
 112     my ( $self, $last_state ) = @_;
 113     my $pkgsrc_base = $self->pkgsrcdir();
 114     -d $pkgsrc_base or return;    # XXX die?
 115     my %age_args;
 116
 117     if ($last_state)
 118     {
 119         my $now      = time();
 120         my $duration = $now - $last_state;
 121         %age_args = ( age => [ newer => "${duration}s" ] );
 122     }
 123
 124     my @p5_pkg_dirs = find(
 125                             directory => name => "p5-*",
 126                             %age_args,
 127                             in => $pkgsrc_base
 128                           );
 129
 130     return map { $_ => $self->_fetch_full_pkg_details($_) } @p5_pkg_dirs;
 131 }
 132
 133 =head2 _get_pkg_details
 134
 135 =cut
 136
 137 sub _get_pkg_details
 138 {
 139     my ( $self, $pkg_loc, @var_names ) = @_;
 140
 141     $self->_pkg_details->{$pkg_loc} //= $self->_fetch_full_pkg_details($pkg_loc);
 142
 143     return @{ $self->_pkg_details->{$pkg_loc} }{@var_names};
 144 }
 145
 146 has '_pkg_var_names' => (
 147     is      => 'ro',
 148     isa     => 'ArrayRef[Str]',
 149     default => sub {
 150         return [
 151                  qw(DISTNAME DISTFILES EXTRACT_SUFX),
 152                  qw(PKGNAME PKGVERSION MAINTAINER),
 153                  qw(HOMEPAGE LICENSE MASTER_SITES)
 154                ];
 155     },
 156     auto_deref => 1,
 157     init_arg   => undef
 158                         );
 159
 160 sub _fetch_full_pkg_details
 161 {
 162     my ( $self, $pkg_loc ) = @_;
 163
 164     my (
 165          $distname,   $distfiles, $suffix,  $pkgname, $pkgver,
 166          $maintainer, $homepage,  $license, $master_sites
 167        ) = $self->_get_pkg_vars( $pkg_loc, $self->_pkg_var_names() );
 168
 169     my $distver;
 170     if ( $distname =~ m/^(.*)-(v?[0-9].*?)$/ )
 171     {
 172         $distname = $1;
 173         $distver  = $2;
 174     }
 175
 176     my $pkgsrcdir = $self->_find_pkgsrc_dir();
 177
 178     my %pkg_details;
 179     $pkg_details{DIST_NAME}    = $distname;
 180     $pkg_details{DIST_VERSION} = $distver;
 181     $pkg_details{DIST_FILE}    = $distfiles;
 182     $pkg_details{PKG_NAME}     = $pkgname;
 183     defined($pkgname) and defined($pkgver) and $pkg_details{PKG_NAME} =~ s/-$pkgver//;
 184     $pkg_details{PKG_VERSION}    = $pkgver;
 185     $pkg_details{PKG_MAINTAINER} = $maintainer;
 186     $pkg_details{PKG_INSTALLED} =
 187       defined( $self->{installed_packages}->{ $pkg_details{PKG_NAME} } );
 188     ( $pkg_details{PKG_LOCATION} = $pkg_loc ) =~ s|$pkgsrcdir/||;
 189     $pkg_details{PKG_HOMEPAGE}     = $homepage;
 190     $pkg_details{PKG_LICENSE}      = $license;
 191     $pkg_details{PKG_MASTER_SITES} = $master_sites;
 192
 193     return \%pkg_details;
 194 }
 195
 196 =head1 AUTHOR
 197
 198 Jens Rehsack, C<< <rehsack at cpan.org> >>
 199
 200 =cut
 201
 202 no Moo;
 203
 204 1;    # End of Packaging::Tools::Plugin::pkgsrc