File Coverage

blib/lib/Alien/Role/Dino.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	2	2	100.0
total	38	41	92.6

package Alien::Role::Dino;

use strict;
use warnings;
use 5.008001;
use Role::Tiny;
use Role::Tiny::With ();

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


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;
}


sub xs_load
{
  my($self, $package, $version, @rest) = @_;
  require XSLoader;
  XSLoader::load($package, $version);
}

around import => sub {
  return;
};

Role::Tiny::With::with("Alien::Role::Dino::$^O");

1;

__END__