File Coverage

blib/lib/Alien/Base/Dino.pm

Criterion	Covered	Total	%
statement	27	28	96.4
branch	2	4	50.0
condition	1	3	33.3
subroutine	8	8	100.0
pod	2	2	100.0
total	40	45	88.8

package Alien::Base::Dino;

use strict;
use warnings;
use 5.008001;
use base qw( Alien::Base );

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


sub import
{
  # We do NOT support the legacy Alien::Base interface for loading
  # DLLs.
}


sub xs_load
{
  my($self, $package, $version, @rest) = @_;

  my $load = sub {
    require XSLoader;
    XSLoader::load($package, $version);
  };

  if($self->can('_xs_load_wrapper'))
  {
    $self->_xs_load_wrapper($load, @rest);
  }
  else
  {
    $load->();
  }
}


sub rpath
{
  my($self, @other) = @_;

  my @dir;

  foreach my $alien ($self, @other)
  {
    if($alien->can('runtime_prop') && defined $alien->runtime_prop->{rpath})
    {
      require Path::Tiny;
      foreach my $rpath (map { Path::Tiny->new($_)->absolute($alien->dist_dir)->stringify } @{ $alien->runtime_prop->{rpath} })
      {
        push @dir, $rpath;
      }
    }
  }

  @dir;
}


require "Alien/Base/Dino/$^O.pm";

1;

__END__