Perl 5 version 22.4 documentation

CPAN::Distroprefs

NAME

CPAN::Distroprefs -- read and match distroprefs

SYNOPSIS

  1. use CPAN::Distroprefs;
  2. my %info = (... distribution/environment info ...);
  3. my $finder = CPAN::Distroprefs->find($prefs_dir, \%ext_map);
  4. while (my $result = $finder->next) {
  5. die $result->as_string if $result->is_fatal;
  6. warn($result->as_string), next if $result->is_warning;
  7. for my $pref (@{ $result->prefs }) {
  8. if ($pref->matches(\%info)) {
  9. return $pref;
  10. }
  11. }
  12. }

DESCRIPTION

This module encapsulates reading Distroprefs and matching them against CPAN distributions.

INTERFACE

  1. my $finder = CPAN::Distroprefs->find($dir, \%ext_map);
  2. while (my $result = $finder->next) { ... }

Build an iterator which finds distroprefs files in the tree below the given directory. Within the tree directories matching m/^[._]/ are pruned.

%ext_map is a hashref whose keys are file extensions and whose values are modules used to load matching files:

  1. {
  2. 'yml' => 'YAML::Syck',
  3. 'dd' => 'Data::Dumper',
  4. ...
  5. }

Each time $finder->next is called, the iterator returns one of two possible values:

  • a CPAN::Distroprefs::Result object
  • undef, indicating that no prefs files remain to be found

RESULTS

find() returns CPAN::Distroprefs::Result objects to indicate success or failure when reading a prefs file.

Common

All results share some common attributes:

type

success , warning , or fatal

file

the file from which these prefs were read, or to which this error refers (relative filename)

ext

the file's extension, which determines how to load it

dir

the directory the file was read from

abs

the absolute path to the file

Errors

Error results (warning and fatal) contain:

msg

the error message (usually either $! or a YAML error)

Successes

Success results contain:

prefs

an arrayref of CPAN::Distroprefs::Pref objects

PREFS

CPAN::Distroprefs::Pref objects represent individual distroprefs documents. They are constructed automatically as part of success results from find() .

data

the pref information as a hashref, suitable for e.g. passing to Kwalify

match_attributes

returns a list of the valid match attributes (see the Distroprefs section in CPAN)

currently: env perl perlconfig distribution module

has_any_match

true if this pref has a 'match' attribute at all

has_valid_subkeys

true if this pref has a 'match' attribute and at least one valid match attribute

matches

  1. if ($pref->matches(\%arg)) { ... }

true if this pref matches the passed-in hashref, which must have a value for each of the match_attributes (above)

LICENSE

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.