1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
package Config::MVP::Reader::INI;
# ABSTRACT: an MVP config reader for .ini files
$Config::MVP::Reader::INI::VERSION = '2.101463';
use Moose;
extends 'Config::MVP::Reader';
with 'Config::MVP::Reader::Findable::ByExtension';
use Config::MVP 2; # Reader is a base class
#pod =head1 DESCRIPTION
#pod
#pod Config::MVP::Reader::INI reads F<.ini> files containing MVP-style
#pod configuration.
#pod
#pod =cut
# Clearly this should be an attribute with a builder blah blah blah. -- rjbs,
# 2009-07-25
sub default_extension { 'ini' }
sub read_into_assembler {
my ($self, $location, $assembler) = @_;
my $reader = Config::MVP::Reader::INI::INIReader->new($assembler);
$reader->read_file($location);
return $assembler->sequence;
}
{
package
Config::MVP::Reader::INI::INIReader;
use parent 'Config::INI::Reader';
sub new {
my ($class, $assembler) = @_;
my $self = $class->SUPER::new;
$self->{assembler} = $assembler;
return $self;
}
sub assembler { $_[0]{assembler} }
sub change_section {
my ($self, $section) = @_;
my ($package, $name) = $section =~ m{\A\s*(?:([^/\s]+)\s*/\s*)?(.+)\z};
$package = $name unless defined $package and length $package;
Carp::croak qq{couldn't understand section header: "$_[1]"}
unless $package;
$self->assembler->change_section($package, $name);
}
sub finalize {
my ($self) = @_;
$self->assembler->finalize;
}
sub set_value {
my ($self, $name, $value) = @_;
unless ($self->assembler->current_section) {
my $starting_name = $self->starting_section;
if ($self->assembler->sequence->section_named( $starting_name )) {
Carp::croak q{can't set value outside of section once starting }
. q{section exists};
}
$self->assembler->change_section(\undef, $starting_name);
}
$self->assembler->add_value($name, $value);
}
}
no Moose;
__PACKAGE__->meta->make_immutable;
1;
__END__
=pod
=encoding UTF-8
=head1 NAME
Config::MVP::Reader::INI - an MVP config reader for .ini files
=head1 VERSION
version 2.101463
=head1 DESCRIPTION
Config::MVP::Reader::INI reads F<.ini> files containing MVP-style
configuration.
=head1 AUTHOR
Ricardo Signes <rjbs@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Ricardo Signes.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
