scip/Config-General
1
0
Fork 0
mirror of https://codeberg.org/scip/Config-General.git synced 2025-12-17 04:31:00 +01:00
Code Issues Packages Projects Releases Wiki Activity

=> 2.52, see changelog

Browse Source 
git-svn-id: http://dev.catalyst.perl.org/repos/Config-General/trunk@96 be1acefe-a474-0410-9a34-9b3221f2030f
This commit is contained in:
Thomas von Dein
2013-07-03 08:37:11 +00:00
parent 1ee3fcec91
commit e690b33942
7 changed files with 258 additions and 109 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
General/Interpolated.pm
View File

@@ -2,13 +2,13 @@
# Config::General::Interpolated - special Class based on Config::General
#
# Copyright (c) 2001 by Wei-Hon Chen <plasmaball@pchome.com.tw>.
# Copyright (c) 2000-2012 by Thomas Linden <tlinden |AT| cpan.org>.
# Copyright (c) 2000-2013 by Thomas Linden <tlinden |AT| cpan.org>.
# All Rights Reserved. Std. disclaimer applies.
# Artistic License, same as perl itself. Have fun.
#
package Config::General::Interpolated;
$Config::General::Interpolated::VERSION = "2.14";
$Config::General::Interpolated::VERSION = "2.15";
use strict;
use Carp;
@@ -48,8 +48,7 @@ sub _set_regex {
\$ # dollar sign
(\{)? # $2: optional opening curly
([a-zA-Z0-9_\-\.:\+,]+) # $3: capturing variable name (fix of #33447)
(
?(2) # $4: if there's the opening curly...
(?(2) # $4: if there's the opening curly...
\} # ... match closing curly
)
}x;
@@ -255,7 +254,7 @@ Config::General::Interpolated - Parse variables within Config files
=head1 SYNOPSIS
use Config::General;
$conf = new Config::General(
$conf = Config::General->new(
-ConfigFile => 'configfile',
-InterPolateVars => 1
);
@@ -341,7 +340,7 @@ L<Config::General>
=head1 COPYRIGHT
Copyright 2001 by Wei-Hon Chen E<lt>plasmaball@pchome.com.twE<gt>.
Copyright 2002-2012 by Thomas Linden <tlinden |AT| cpan.org>.
Copyright 2002-2013 by Thomas Linden <tlinden |AT| cpan.org>.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
@@ -350,7 +349,7 @@ See L<http://www.perl.com/perl/misc/Artistic.html>
=head1 VERSION
2.14
2.15
=cut