view release on metacpan or  search on metacpan

lib/Module/Build/Base.pm  view on Meta::CPAN

646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
        if ((!$status->{ok}) xor ($type =~ /conflicts$/)) { return 0; }
        if ( ! eval "require $modname; 1" ) { return 0; }
      }
    }
    return 1;
  }
 
  return $ph->{features}->access($key, @_);
}
 
# No args - get the auto_features & overlay the regular features
my %features;
my %auto_features = $ph->{auto_features}->access();
while (my ($name, $info) = each %auto_features) {
  my $failures = $self->prereq_failures($info);
  my $disabled = grep( /^(?:\w+_)?(?:requires|conflicts)$/,
                      keys %$failures ) ? 1 : 0;
  $features{$name} = $disabled ? 0 : 1;
}
%features = (%features, $ph->{features}->access());