Context Navigation

Changeset 19195 for lang/perl

Timestamp:

09/11/08 21:25:06 (5 years ago)

Author:

vkgtaro

Message:

unicode オプション追加したー。真値にすると flagged なハッシュが返るよ。

Location:

lang/perl/Config-Multi/trunk

Files:

r11911	r19195
1	1	Revision history for Config::Multi
	2
	3	0.05 2008-09-11/21:00
	4	- add unicode option. unicode => 1.
2	5
3	6	0.04 2008-05-18/19:20

r11708	r19195
11	11	requires 'Config::Any' => 0;
12	12	requires 'Class::Accessor' => 0;
	13	requires 'Data::Visitor::Encode' => 0;
13	14	requires 'YAML::Syck' => 0; # for testing
14	15	recommends 'Test::Pod::Coverage' => 0;

r12060	r19195
7	7	use Config::Any;
8	8	use Carp;
	9	use Data::Visitor::Encode;
9	10
10	11	use base qw/Class::Accessor/;
…	…
12	13	our $VERSION = '0.04';
13	14
14		__PACKAGE__->mk_accessors(qw/app_name prefix dir files extension/);
	15	__PACKAGE__->mk_accessors(qw/app_name prefix dir files extension unicode/);
15	16
16	17	sub load {
…	…
56	57
57	58	$self->{files} = \@files;
	59
	60	if ( $self->unicode ) {
	61	my $dve = Data::Visitor::Encode->new();
	62	$config = $dve->decode('utf8', $config);
	63	}
58	64
59	65	return $config;
…	…
122	128	my $dir = File::Spec->catfile( $FindBin::Bin , 'conf' );
123	129
124		# prefix ~~and extension~~ is optional.
	130	# prefix, extension and unicode is optional.
125	131	my $cm
126	132	= Config::Multi->new({
…	…
128	134	app_name => 'myapp' ,
129	135	prefix => 'web' ,
130		extension => 'yml'
	136	extension => 'yml' ,
	137	unicode => 1 # unicode option
131	138	});
132	139	my $config = $cm->load();
…	…
210	217	note. PREFIX = uc($prefix); MYAPP = uc($app_name)
211	218
	219	=head2 unicode option
	220
	221	if you set true to unicode option, return $config of flagged UTF-8.
	222
212	223	=head1 METHODS
213	224