File Coverage

lib/lib/byversion.pm

Criterion	Covered	Total	%
statement	19	29	65.5
branch	0	4	0.0
condition			n/a
subroutine	6	8	75.0
pod			n/a
total	25	41	60.9

use strict;
use warnings;

package lib::byversion;
BEGIN {
  $lib::byversion::AUTHORITY = 'cpan:KENTNL';
}
{
  $lib::byversion::VERSION = '0.001001';
}

# ABSTRACT: add paths to @INC depending on which version of C is running.

use lib ();
use version 0.77;




use String::Formatter stringf => {
  -as   => path_format =>,
  codes => {
    v => "$]",
    V => do {
      my $x = version->parse("$]")->normal;
      $x =~ s{^v}{};
      $x;
    },
  }
};

sub import {
  my ( $self, @args ) = @_;
  if ( @args != 1 ) {
    die 'lib::byversion->import takes exactly one argument, instead, you specified ' . scalar @args;
  }
  my $path = path_format(@args);
  return lib->import($path);
}

## no critic (ProhibitBuiltinHomonyms)
sub unimport {
  my ( $self, @args ) = @_;
  if ( @args != 1 ) {
    die "lib::byversion->import takes exactly one argument, instead, you specified " . scalar @args;
  }
  my $path = path_format(@args);
  return lib->unimport($path);
}

1;

__END__