Fail early properly even in the presence of -jN

[dbsrgits/DBIx-Class.git] / lib / DBIx / Class / _Util.pm

package # hide from PAUSE
  DBIx::Class::_Util;

use warnings;
use strict;

use constant SPURIOUS_VERSION_CHECK_WARNINGS => ($] < 5.010 ? 1 : 0);

use Carp;

use base 'Exporter';
our @EXPORT_OK = qw(modver_gt_or_eq);

sub modver_gt_or_eq {
  my ($mod, $ver) = @_;

  croak "Nonsensical module name supplied"
    if ! defined $mod or ! length $mod;

  croak "Nonsensical minimum version supplied"
    if ! defined $ver or $ver =~ /[^0-9\.\_]/;

  local $SIG{__WARN__} = do {
    my $orig_sig_warn = $SIG{__WARN__} || sub { warn @_ };
    sub {
      $orig_sig_warn->(@_) unless $_[0] =~ /\Qisn't numeric in subroutine entry/
    }
  } if SPURIOUS_VERSION_CHECK_WARNINGS;

  local $@;
  eval { $mod->VERSION($ver) } ? 1 : 0;
}

1;