File Coverage

blib/lib/Alien/Build/Plugin/Gather/Dino.pm

Criterion	Covered	Total	%
statement	26	26	100.0
branch	4	4	100.0
condition			n/a
subroutine	8	8	100.0
pod	1	1	100.0
total	39	39	100.0

package Alien::Build::Plugin::Gather::Dino;

use strict;
use warnings;
use 5.008001;
use Alien::Build::Plugin;
use FFI::CheckLib qw( find_lib );
use Path::Tiny qw( path );

# ABSTRACT: Experimental support for dynamic share Alien install
our $VERSION = '0.01'; # VERSION


sub init
{
  my($self, $meta) = @_;

  $meta->after_hook(
    gather_share => sub {
      my($build) = @_;

      foreach my $path (map { path('.')->absolute->child($_) } qw( bin lib dynamic ))
      {
        next unless -d $path;
        if(find_lib(lib => '*', libpath => $path->stringify, systempath => []))
        {
          push @{ $build->runtime_prop->{rpath} }, $path->basename;
        }
      }
    },
  );
}

1;

__END__