1 .\" Automatically generated by Pod::Man v1.37, Pod::Parser v1.3
4 .\" ========================================================================
5 .de Sh \" Subsection heading
13 .de Sp \" Vertical space (when we can't use .PP)
17 .de Vb \" Begin verbatim text
22 .de Ve \" End verbatim text
26 .\" Set up some character translations and predefined strings. \*(-- will
27 .\" give an unbreakable dash, \*(PI will give pi, \*(L" will give a left
28 .\" double quote, and \*(R" will give a right double quote. | will give a
29 .\" real vertical bar. \*(C+ will give a nicer C++. Capital omega is used to
30 .\" do unbreakable dashes and therefore won't be available. \*(C` and \*(C'
31 .\" expand to `' in nroff, nothing in troff, for use with C<>.
33 .ds C+ C\v'-.1v'\h'-1p'\s-2+\h'-1p'+\s0\v'.1v'\h'-1p'
37 . if (\n(.H=4u)&(1m=24u) .ds -- \(*W\h'-12u'\(*W\h'-12u'-\" diablo 10 pitch
38 . if (\n(.H=4u)&(1m=20u) .ds -- \(*W\h'-12u'\(*W\h'-8u'-\" diablo 12 pitch
51 .\" If the F register is turned on, we'll generate index entries on stderr for
52 .\" titles (.TH), headers (.SH), subsections (.Sh), items (.Ip), and index
53 .\" entries marked with X<> in POD. Of course, you'll have to process the
54 .\" output yourself in some meaningful fashion.
57 . tm Index:\\$1\t\\n%\t"\\$2"
63 .\" For nroff, turn off justification. Always turn off hyphenation; it makes
64 .\" way too many mistakes in technical documents.
68 .\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
69 .\" Fear. Run. Save yourself. No user-serviceable parts.
70 . \" fudge factors for nroff and troff
79 . ds #H ((1u-(\\\\n(.fu%2u))*.13m)
85 . \" simple accents for nroff and troff
95 . ds ' \\k:\h'-(\\n(.wu*8/10-\*(#H)'\'\h"|\\n:u"
96 . ds ` \\k:\h'-(\\n(.wu*8/10-\*(#H)'\`\h'|\\n:u'
97 . ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'^\h'|\\n:u'
98 . ds , \\k:\h'-(\\n(.wu*8/10)',\h'|\\n:u'
99 . ds ~ \\k:\h'-(\\n(.wu-\*(#H-.1m)'~\h'|\\n:u'
100 . ds / \\k:\h'-(\\n(.wu*8/10-\*(#H)'\z\(sl\h'|\\n:u'
102 . \" troff and (daisy-wheel) nroff accents
103 .ds : \\k:\h'-(\\n(.wu*8/10-\*(#H+.1m+\*(#F)'\v'-\*(#V'\z.\h'.2m+\*(#F'.\h'|\\n:u'\v'\*(#V'
104 .ds 8 \h'\*(#H'\(*b\h'-\*(#H'
105 .ds o \\k:\h'-(\\n(.wu+\w'\(de'u-\*(#H)/2u'\v'-.3n'\*(#[\z\(de\v'.3n'\h'|\\n:u'\*(#]
106 .ds d- \h'\*(#H'\(pd\h'-\w'~'u'\v'-.25m'\f2\(hy\fP\v'.25m'\h'-\*(#H'
107 .ds D- D\\k:\h'-\w'D'u'\v'-.11m'\z\(hy\v'.11m'\h'|\\n:u'
108 .ds th \*(#[\v'.3m'\s+1I\s-1\v'-.3m'\h'-(\w'I'u*2/3)'\s-1o\s+1\*(#]
109 .ds Th \*(#[\s+2I\s-2\h'-\w'I'u*3/5'\v'-.3m'o\v'.3m'\*(#]
110 .ds ae a\h'-(\w'a'u*4/10)'e
111 .ds Ae A\h'-(\w'A'u*4/10)'E
112 . \" corrections for vroff
113 .if v .ds ~ \\k:\h'-(\\n(.wu*9/10-\*(#H)'\s-2\u~\d\s+2\h'|\\n:u'
114 .if v .ds ^ \\k:\h'-(\\n(.wu*10/11-\*(#H)'\v'-.4m'^\v'.4m'\h'|\\n:u'
115 . \" for low resolution devices (crt and lpr)
116 .if \n(.H>23 .if \n(.V>19 \
129 .\" ========================================================================
131 .IX Title "CPAN::Distroprefs 3"
132 .TH CPAN::Distroprefs 3 "2009-05-01" "perl v5.8.7" "User Contributed Perl Documentation"
134 CPAN::Distroprefs \-\- read and match distroprefs
136 .IX Header "SYNOPSIS"
138 \& use CPAN::Distroprefs;
142 \& my %info = (... distribution/environment info ...);
146 \& my $finder = CPAN::Distroprefs\->find($prefs_dir, \e%ext_map);
150 \& while (my $result = $finder\->next) {
154 \& die $result\->as_string if $result\->is_fatal;
158 \& warn($result\->as_string), next if $result\->is_warning;
162 \& for my $pref (@{ $result\->prefs }) {
163 \& if ($pref\->matches(\e%info)) {
170 .IX Header "DESCRIPTION"
171 This module encapsulates reading Distroprefs and matching them against \s-1CPAN\s0 distributions.
173 .IX Header "INTERFACE"
175 \& my $finder = CPAN::Distroprefs\->find($dir, \e%ext_map);
179 \& while (my $result = $finder\->next) { ... }
182 Build an iterator which finds distroprefs files in the given directory.
184 \&\f(CW%ext_map\fR is a hashref whose keys are file extensions and whose values are
185 modules used to load matching files:
189 \& 'yml' => 'YAML::Syck',
190 \& 'dd' => 'Data::Dumper',
195 Each time \f(CW\*(C`$finder\->next\*(C'\fR is called, the iterator returns one of two
197 .IP "* a CPAN::Distroprefs::Result object" 4
198 .IX Item "a CPAN::Distroprefs::Result object"
200 .ie n .IP "* ""undef"", indicating that no prefs files remain to be found" 4
201 .el .IP "* \f(CWundef\fR, indicating that no prefs files remain to be found" 4
202 .IX Item "undef, indicating that no prefs files remain to be found"
206 \&\f(CW\*(C`find()\*(C'\fR returns CPAN::Distroprefs::Result objects to
207 indicate success or failure when reading a prefs file.
209 .IX Subsection "Common"
210 All results share some common attributes:
213 .IX Subsection "type"
215 \&\f(CW\*(C`success\*(C'\fR, \f(CW\*(C`warning\*(C'\fR, or \f(CW\*(C`fatal\*(C'\fR
218 .IX Subsection "file"
220 the file from which these prefs were read, or to which this error refers (relative filename)
225 the file's extension, which determines how to load it
230 the directory the file was read from
235 the absolute path to the file
237 .IX Subsection "Errors"
238 Error results (warning and fatal) contain:
243 the error message (usually either \f(CW$!\fR or a \s-1YAML\s0 error)
245 .IX Subsection "Successes"
246 Success results contain:
249 .IX Subsection "prefs"
251 an arrayref of CPAN::Distroprefs::Pref objects
254 CPAN::Distroprefs::Pref objects represent individual distroprefs documents.
255 They are constructed automatically as part of \f(CW\*(C`success\*(C'\fR results from \f(CW\*(C`find()\*(C'\fR.
258 .IX Subsection "data"
260 the pref information as a hashref, suitable for e.g. passing to Kwalify
262 \fImatch_attributes\fR
263 .IX Subsection "match_attributes"
265 returns a list of the valid match attributes (see the Distroprefs section in \s-1CPAN\s0)
267 currently: \f(CW\*(C`env perl perlconfig distribution module\*(C'\fR
270 .IX Subsection "has_any_match"
272 true if this pref has a 'match' attribute at all
274 \fIhas_valid_subkeys\fR
275 .IX Subsection "has_valid_subkeys"
277 true if this pref has a 'match' attribute and at least one valid match attribute
280 .IX Subsection "matches"
283 \& if ($pref\->matches(\e%arg)) { ... }
286 true if this pref matches the passed-in hashref, which must have a value for
287 each of the \f(CW\*(C`match_attributes\*(C'\fR (above)
290 This program is free software; you can redistribute it and/or modify it under
291 the same terms as Perl itself.