r76649 - in /branches/upstream/libconfig-model-approx-perl/current: ./ lib/Config/Model/ lib/Config/Model/models/ lib/Config/Model/system.d/ script/ t/
fabreg-guest at users.alioth.debian.org
fabreg-guest at users.alioth.debian.org
Mon Jun 27 21:43:00 UTC 2011
Author: fabreg-guest
Date: Mon Jun 27 21:42:58 2011
New Revision: 76649
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=76649
Log:
[svn-upgrade] new version libconfig-model-approx-perl (1.004)
Added:
branches/upstream/libconfig-model-approx-perl/current/META.json
branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pod
branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/system.d/
branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/system.d/approx
branches/upstream/libconfig-model-approx-perl/current/script/
branches/upstream/libconfig-model-approx-perl/current/script/gen_class_pod.pl (with props)
Removed:
branches/upstream/libconfig-model-approx-perl/current/config-edit-approx
Modified:
branches/upstream/libconfig-model-approx-perl/current/Build.PL
branches/upstream/libconfig-model-approx-perl/current/MANIFEST
branches/upstream/libconfig-model-approx-perl/current/META.yml
branches/upstream/libconfig-model-approx-perl/current/README
branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/Approx.pm
branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pl
branches/upstream/libconfig-model-approx-perl/current/t/approx_config.t
Modified: branches/upstream/libconfig-model-approx-perl/current/Build.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/Build.PL?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/Build.PL (original)
+++ branches/upstream/libconfig-model-approx-perl/current/Build.PL Mon Jun 27 21:42:58 2011
@@ -1,8 +1,4 @@
-# $Author: ddumont $
-# $Date: 2009-09-27 16:02:38 +0200 (dim 27 sep 2009) $
-# $Revision: 1036 $
-
-# Copyright (c) 2009 Dominique Dumont.
+# Copyright (c) 2009-2011 Dominique Dumont.
#
# This file is part of Config-Model-Approx.
#
@@ -27,6 +23,10 @@
use warnings FATAL => qw(all) ;
use strict ;
+# check that pod docs are up-to-date
+system("perl -Ilib script/gen_class_pod.pl");
+
+my %appli_files = map { ( $_, $_ ) } glob("lib/Config/Model/*.d/*");
my $build = Module::Build->new
(
@@ -34,10 +34,10 @@
license => 'lgpl',
dist_author => "Dominique Dumont (ddumont at cpan dot org)",
dist_abstract => "Approx configuration files editor",
- script_files => [ qw/config-edit-approx/ ],
+ appli_files => \%appli_files,
requires => {
perl => '5.8.0',
- 'Config::Model' => '0.637',
+ 'Config::Model' => '1.245',
'Log::Log4perl' => 0 ,
},
build_requires => { 'Test::Pod' => 0 },
@@ -50,4 +50,6 @@
$build->add_build_element('pl');
+$build->add_build_element('appli');
+
$build->create_build_script;
Modified: branches/upstream/libconfig-model-approx-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/MANIFEST?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/MANIFEST (original)
+++ branches/upstream/libconfig-model-approx-perl/current/MANIFEST Mon Jun 27 21:42:58 2011
@@ -3,8 +3,11 @@
MANIFEST This list of files
META.yml
README
-config-edit-approx
lib/Config/Model/Approx.pm
lib/Config/Model/models/Approx.pl
+lib/Config/Model/models/Approx.pod
+lib/Config/Model/system.d/approx
+script/gen_class_pod.pl
t/approx_config.t
t/pod.t
+META.json
Added: branches/upstream/libconfig-model-approx-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/META.json?rev=76649&op=file
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/META.json (added)
+++ branches/upstream/libconfig-model-approx-perl/current/META.json Mon Jun 27 21:42:58 2011
@@ -1,0 +1,52 @@
+{
+ "abstract" : "Approx configuration files editor",
+ "author" : [
+ "Dominique Dumont (ddumont at cpan dot org)"
+ ],
+ "dynamic_config" : 1,
+ "generated_by" : "Module::Build version 0.38, CPAN::Meta::Converter version 2.110930",
+ "license" : [
+ "open_source"
+ ],
+ "meta-spec" : {
+ "url" : "http://search.cpan.org/perldoc?CPAN::Meta::Spec",
+ "version" : "2"
+ },
+ "name" : "Config-Model-Approx",
+ "prereqs" : {
+ "build" : {
+ "requires" : {
+ "Test::Pod" : 0
+ }
+ },
+ "configure" : {
+ "requires" : {
+ "Module::Build" : "0.38"
+ }
+ },
+ "runtime" : {
+ "recommends" : {
+ "Config::Model::CursesUI" : 0,
+ "Config::Model::TkUI" : 0
+ },
+ "requires" : {
+ "Config::Model" : "1.245",
+ "Log::Log4perl" : 0,
+ "perl" : "v5.8.0"
+ }
+ }
+ },
+ "provides" : {
+ "Config::Model::Approx" : {
+ "file" : "lib/Config/Model/Approx.pm",
+ "version" : "1.004"
+ }
+ },
+ "release_status" : "stable",
+ "resources" : {
+ "license" : [
+ "http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt"
+ ]
+ },
+ "version" : "1.004"
+}
Modified: branches/upstream/libconfig-model-approx-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/META.yml?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/META.yml (original)
+++ branches/upstream/libconfig-model-approx-perl/current/META.yml Mon Jun 27 21:42:58 2011
@@ -1,28 +1,29 @@
---
-name: Config-Model-Approx
-version: 1.003
+abstract: 'Approx configuration files editor'
author:
- - Dominique Dumont (ddumont at cpan dot org)
-abstract: Approx configuration files editor
-license: lgpl
-resources:
- license: http://opensource.org/licenses/lgpl-license.php
+ - 'Dominique Dumont (ddumont at cpan dot org)'
build_requires:
Test::Pod: 0
-requires:
- Config::Model: 0.637
- Log::Log4perl: 0
- perl: v5.8.0
+configure_requires:
+ Module::Build: 0.38
+dynamic_config: 1
+generated_by: 'Module::Build version 0.38, CPAN::Meta::Converter version 2.110930'
+license: open_source
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
+name: Config-Model-Approx
+provides:
+ Config::Model::Approx:
+ file: lib/Config/Model/Approx.pm
+ version: 1.004
recommends:
Config::Model::CursesUI: 0
Config::Model::TkUI: 0
-configure_requires:
- Module::Build: 0.35
-provides:
- Config::Model::Approx:
- file: lib/Config/Model/Approx.pm
- version: 1.003
-generated_by: Module::Build version 0.35
-meta-spec:
- url: http://module-build.sourceforge.net/META-spec-v1.4.html
- version: 1.4
+requires:
+ Config::Model: 1.245
+ Log::Log4perl: 0
+ perl: v5.8.0
+resources:
+ license: http://www.gnu.org/licenses/old-licenses/lgpl-2.1.txt
+version: 1.004
Modified: branches/upstream/libconfig-model-approx-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/README?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/README (original)
+++ branches/upstream/libconfig-model-approx-perl/current/README Mon Jun 27 21:42:58 2011
@@ -13,7 +13,7 @@
Once this module is installed, you can run:
- # config-edit-approx
+ # config-edit -application approx
If config-edit fails to load your approx.conf, you can try config-edit
with -force option.
@@ -25,14 +25,14 @@
are the purpose of the main files:
- Build.PL : script to build the Perl module. See Module::Build(3pm)
- lib/Config/Model/models : directory containing Approx model
- file (Approx.pl).
+ file (Approx.pl). and its generated doc (Approx.pod)
- lib/Config/Model/Approx.pm: Read and write approx.conf
- t/ : non-regression tests
--------------------------------------------------------------------
AUTHOR
- Copyright (c) 2009 Dominique Dumont.
+ Copyright (c) 2009-2011 Dominique Dumont.
This file is part of Config-Model-Approx. License is LGPL v2.1 or
any later version.
Modified: branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/Approx.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/Approx.pm?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/Approx.pm (original)
+++ branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/Approx.pm Mon Jun 27 21:42:58 2011
@@ -1,8 +1,5 @@
-# $Author: ddumont $
-# $Date: 2009-10-22 11:54:11 +0200 (jeu. 22 oct. 2009) $
-# $Revision: 1037 $
-# Copyright (c) 2009 Dominique Dumont.
+# Copyright (c) 2009-2011 Dominique Dumont.
#
# This file is part of Config-Model-Approx.
#
@@ -30,9 +27,7 @@
use File::Copy ;
use File::Path ;
-use vars qw($VERSION) ;
-
-$VERSION = '1.003' ;
+our $VERSION = '1.004' ;
my $logger = Log::Log4perl::get_logger(__PACKAGE__);
Modified: branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pl?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pl (original)
+++ branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pl Mon Jun 27 21:42:58 2011
@@ -1,107 +1,138 @@
[
- {
- 'read_config' => [
- {
- 'file' => 'approx.conf',
- 'backend' => 'custom',
- 'class' => 'Config::Model::Approx',
- 'config_dir' => '/etc/approx'
- }
- ],
- 'name' => 'Approx',
- 'element' => [
- 'max_rate',
- {
- 'value_type' => 'uniline',
- 'summary' => 'maximum download rate from remote repositories',
- 'type' => 'leaf',
- 'description' => "Specifies the maximum download rate from remote repositories, in bytes per second (default: unlimited). The value may be suf\x{2010} fixed with \"K\", \"M\", or \"G\" to indicate kilobytes, megabytes, or gigabytes per second, respectively."
- },
- 'max_redirects',
- {
- 'value_type' => 'integer',
- 'summary' => 'maximum number of HTTP redirections',
- 'upstream_default' => '5',
- 'type' => 'leaf',
- 'description' => 'Specifies the maximum number of HTTP redirections that will be followed when downloading a remote file'
- },
- 'user',
- {
- 'value_type' => 'uniline',
- 'summary' => 'user that owns the files in the approx cache',
- 'upstream_default' => 'approx',
- 'type' => 'leaf'
- },
- 'group',
- {
- 'value_type' => 'uniline',
- 'summary' => 'group that owns the files in the approx cache',
- 'upstream_default' => 'approx',
- 'type' => 'leaf'
- },
- 'syslog',
- {
- 'value_type' => 'uniline',
- 'summary' => 'syslog(3) facility to use when logging',
- 'upstream_default' => 'daemon',
- 'type' => 'leaf'
- },
- 'pdiffs',
- {
- 'value_type' => 'boolean',
- 'summary' => 'support IndexFile diffs',
- 'upstream_default' => '1',
- 'type' => 'leaf'
- },
- 'offline',
- {
- 'value_type' => 'boolean',
- 'summary' => 'use cached files when offline',
- 'upstream_default' => '0',
- 'type' => 'leaf',
- 'description' => 'Specifies whether to deliver (possibly out-of-date) cached files when they cannot be downloaded from remote repositories'
- },
- 'max_wait',
- {
- 'value_type' => 'integer',
- 'summary' => 'max wait for concurrent file download',
- 'upstream_default' => '10',
- 'type' => 'leaf',
- 'description' => 'Specifies how many seconds an approx(8) process will wait for a concurrent download of a file to complete, before attempting to download the file itself'
- },
- 'verbose',
- {
- 'value_type' => 'boolean',
- 'upstream_default' => '0',
- 'type' => 'leaf',
- 'description' => 'Specifies whether informational messages should be printed in the log'
- },
- 'debug',
- {
- 'value_type' => 'boolean',
- 'upstream_default' => '0',
- 'type' => 'leaf',
- 'description' => 'Specifies whether debug messages should be printed in the log'
- },
- 'distributions',
- {
- 'level' => 'important',
- 'cargo' => {
- 'value_type' => 'uniline',
- 'type' => 'leaf'
- },
- 'summary' => 'remote repositories',
- 'type' => 'hash',
- 'description' => 'The other name/value pairs are used to map distribution names to remote repositories. For example,
+ {
+ 'class_description' => 'Configuration model to edit C</etc/approc/approx.conf>. This file can be edited with the following command:
+
+ config-edit -application approx
+
+',
+ 'read_config' => [
+ {
+ 'file' => 'approx.conf',
+ 'backend' => 'custom',
+ 'class' => 'Config::Model::Approx',
+ 'config_dir' => '/etc/approx'
+ }
+ ],
+ 'name' => 'Approx',
+ 'copyright' => [
+ '2011, Dominique Dumont'
+ ],
+ 'author' => [
+ 'Dominique Dumont'
+ ],
+ 'license' => 'LGPL-2.1+',
+ 'element' => [
+ 'cache',
+ {
+ 'value_type' => 'uniline',
+ 'summary' => 'approx cache directory',
+ 'upstream_default' => '/var/cache/approx',
+ 'experience' => 'advanced',
+ 'type' => 'leaf',
+ 'description' => 'Specifies the location of the approx cache directory (default: /var/cache/approx). It and all its subdirectories must be owned by the approx server (see also the $user and $group parameters, below.)'
+ },
+ 'interval',
+ {
+ 'value_type' => 'integer',
+ 'summary' => 'file cache expiration in minutes',
+ 'upstream_default' => '720',
+ 'experience' => 'advanced',
+ 'type' => 'leaf',
+ 'description' => 'Specifies the time in minutes after which a cached file will be considered too old to deliver without first checking with the remote repository for a newer version'
+ },
+ 'max_rate',
+ {
+ 'value_type' => 'uniline',
+ 'summary' => 'maximum download rate from remote repositories',
+ 'type' => 'leaf',
+ 'description' => "Specifies the maximum download rate from remote repositories, in bytes per second (default: unlimited). The value may be suf\x{2010} fixed with \"K\", \"M\", or \"G\" to indicate kilobytes, megabytes, or gigabytes per second, respectively."
+ },
+ 'max_redirects',
+ {
+ 'value_type' => 'integer',
+ 'summary' => 'maximum number of HTTP redirections',
+ 'upstream_default' => '5',
+ 'type' => 'leaf',
+ 'description' => 'Specifies the maximum number of HTTP redirections that will be followed when downloading a remote file'
+ },
+ 'user',
+ {
+ 'value_type' => 'uniline',
+ 'summary' => 'user that owns the files in the approx cache',
+ 'upstream_default' => 'approx',
+ 'type' => 'leaf'
+ },
+ 'group',
+ {
+ 'value_type' => 'uniline',
+ 'summary' => 'group that owns the files in the approx cache',
+ 'upstream_default' => 'approx',
+ 'type' => 'leaf'
+ },
+ 'syslog',
+ {
+ 'value_type' => 'uniline',
+ 'summary' => 'syslog(3) facility to use when logging',
+ 'upstream_default' => 'daemon',
+ 'type' => 'leaf'
+ },
+ 'pdiffs',
+ {
+ 'value_type' => 'boolean',
+ 'summary' => 'support IndexFile diffs',
+ 'upstream_default' => '1',
+ 'type' => 'leaf'
+ },
+ 'offline',
+ {
+ 'value_type' => 'boolean',
+ 'summary' => 'use cached files when offline',
+ 'upstream_default' => '0',
+ 'type' => 'leaf',
+ 'description' => 'Specifies whether to deliver (possibly out-of-date) cached files when they cannot be downloaded from remote repositories'
+ },
+ 'max_wait',
+ {
+ 'value_type' => 'integer',
+ 'summary' => 'max wait for concurrent file download',
+ 'upstream_default' => '10',
+ 'type' => 'leaf',
+ 'description' => 'Specifies how many seconds an approx(8) process will wait for a concurrent download of a file to complete, before attempting to download the file itself'
+ },
+ 'verbose',
+ {
+ 'value_type' => 'boolean',
+ 'upstream_default' => '0',
+ 'type' => 'leaf',
+ 'description' => 'Specifies whether informational messages should be printed in the log'
+ },
+ 'debug',
+ {
+ 'value_type' => 'boolean',
+ 'upstream_default' => '0',
+ 'type' => 'leaf',
+ 'description' => 'Specifies whether debug messages should be printed in the log'
+ },
+ 'distributions',
+ {
+ 'level' => 'important',
+ 'cargo' => {
+ 'value_type' => 'uniline',
+ 'type' => 'leaf'
+ },
+ 'summary' => 'remote repositories',
+ 'type' => 'hash',
+ 'description' => 'The other name/value pairs are used to map distribution names to remote repositories. For example,
debian => http://ftp.debian.org/debian
security => http://security.debian.org/debian-security
Use the distribution name as the key of the hash element and the URL as the value
',
- 'index_type' => 'string'
- }
- ]
- }
- ]
+ 'index_type' => 'string'
+ }
+ ]
+ }
+]
;
+
Added: branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pod
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pod?rev=76649&op=file
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pod (added)
+++ branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/models/Approx.pod Mon Jun 27 21:42:58 2011
@@ -1,0 +1,113 @@
+=head1 NAME
+
+Config::Model::models::Approx - Configuration class Approx
+
+=head1 DESCRIPTION
+
+Configuration classes used by L<Config::Model>
+
+Configuration model to edit C</etc/approc/approx.conf>. This file can be edited with the following command:
+
+ config-edit -application approx
+
+
+
+=head1 Elements
+
+=head2 cache - approx cache directory
+
+Specifies the location of the approx cache directory (default: /var/cache/approx). It and all its subdirectories must be owned by the approx server (see also the $user and $group parameters, below.)I<< Optional. Type uniline. upstream_default: '/var/cache/approx'. >>
+
+=head2 interval - file cache expiration in minutes
+
+Specifies the time in minutes after which a cached file will be considered too old to deliver without first checking with the remote repository for a newer version. I<< Optional. Type integer. upstream_default: '720'. >>
+
+=head2 max_rate - maximum download rate from remote repositories
+
+Specifies the maximum download rate from remote repositories, in bytes per second (default: unlimited). The value may be sufâ fixed with "K", "M", or "G" to indicate kilobytes, megabytes, or gigabytes per second, respectively.I<< Optional. Type uniline. >>
+
+=head2 max_redirects - maximum number of HTTP redirections
+
+Specifies the maximum number of HTTP redirections that will be followed when downloading a remote file. I<< Optional. Type integer. upstream_default: '5'. >>
+
+=head2 user - user that owns the files in the approx cache
+
+I<< Optional. Type uniline. upstream_default: 'approx'. >>
+
+=head2 group - group that owns the files in the approx cache
+
+I<< Optional. Type uniline. upstream_default: 'approx'. >>
+
+=head2 syslog - syslog(3) facility to use when logging
+
+I<< Optional. Type uniline. upstream_default: 'daemon'. >>
+
+=head2 pdiffs - support IndexFile diffs
+
+I<< Optional. Type boolean. upstream_default: '1'. >>
+
+=head2 offline - use cached files when offline
+
+Specifies whether to deliver (possibly out-of-date) cached files when they cannot be downloaded from remote repositories. I<< Optional. Type boolean. upstream_default: '0'. >>
+
+=head2 max_wait - max wait for concurrent file download
+
+Specifies how many seconds an approx(8) process will wait for a concurrent download of a file to complete, before attempting to download the file itself. I<< Optional. Type integer. upstream_default: '10'. >>
+
+=head2 verbose
+
+Specifies whether informational messages should be printed in the log. I<< Optional. Type boolean. upstream_default: '0'. >>
+
+=head2 debug
+
+Specifies whether debug messages should be printed in the log. I<< Optional. Type boolean. upstream_default: '0'. >>
+
+=head2 distributions - remote repositories
+
+The other name/value pairs are used to map distribution names to remote repositories. For example,
+
+ debian => http://ftp.debian.org/debian
+ security => http://security.debian.org/debian-security
+
+Use the distribution name as the key of the hash element and the URL as the value
+. I<< Optional. Type hash of uniline. >>
+
+=head1 SEE ALSO
+
+=over
+
+=item *
+
+L<config-edit>
+
+=back
+
+=head1 AUTHOR
+
+=over
+
+=item Dominique Dumont
+
+
+=back
+
+=head1 COPYRIGHT
+
+=over
+
+=item 2011, Dominique Dumont
+
+
+=back
+
+=head1 LICENSE
+
+=over
+
+=item LGPL-2.1+
+
+
+=back
+
+=cut
+
Added: branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/system.d/approx
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/system.d/approx?rev=76649&op=file
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/system.d/approx (added)
+++ branches/upstream/libconfig-model-approx-perl/current/lib/Config/Model/system.d/approx Mon Jun 27 21:42:58 2011
@@ -1,0 +1,1 @@
+model = Approx
Added: branches/upstream/libconfig-model-approx-perl/current/script/gen_class_pod.pl
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/script/gen_class_pod.pl?rev=76649&op=file
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/script/gen_class_pod.pl (added)
+++ branches/upstream/libconfig-model-approx-perl/current/script/gen_class_pod.pl Mon Jun 27 21:42:58 2011
@@ -1,0 +1,47 @@
+#!/usr/bin/perl
+
+# Copyright (c) 2011 Dominique Dumont.
+#
+# This file is part of Config-Model.
+#
+# Config-Model is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser Public License as
+# published by the Free Software Foundation; either version 2.1 of
+# the License, or (at your option) any later version.
+#
+# Config-Model is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser Public License for more details.
+#
+# You should have received a copy of the GNU Lesser Public License
+# along with Config-Model; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA
+# 02110-1301 USA
+
+use warnings FATAL => qw(all);
+use lib qw/lib/ ;
+use strict;
+use File::Slurp qw/slurp/;
+use Config::Model ; # to generate doc
+use Log::Log4perl qw(:easy) ;
+
+Log::Log4perl->easy_init($WARN);
+
+
+my %appli_files = map { ( $_, $_ ) } glob("lib/Config/Model/*.d/*");
+
+my $model = Config::Model -> new(model_dir => "lib/Config/Model/models") ;
+
+my @generated_pods ;
+map {
+ if (not $model->model_exists($_)) {
+ print "Checking doc for model $_\n";
+ $model->load($_) ;
+ $model->generate_doc ($_,'lib') ;
+ }
+ }
+ map { /model\s*=\s*([\w:-]+)/; $1; }
+ grep { /^\s*model/; }
+ map { slurp($_); } glob("lib/Config/Model/*.d/*");
+
Propchange: branches/upstream/libconfig-model-approx-perl/current/script/gen_class_pod.pl
------------------------------------------------------------------------------
svn:executable = *
Modified: branches/upstream/libconfig-model-approx-perl/current/t/approx_config.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libconfig-model-approx-perl/current/t/approx_config.t?rev=76649&op=diff
==============================================================================
--- branches/upstream/libconfig-model-approx-perl/current/t/approx_config.t (original)
+++ branches/upstream/libconfig-model-approx-perl/current/t/approx_config.t Mon Jun 27 21:42:58 2011
@@ -1,7 +1,4 @@
# -*- cperl -*-
-# $Author: ddumont $
-# $Date: 2008-04-15 13:57:49 +0200 (mar, 15 avr 2008) $
-# $Revision: 608 $
use ExtUtils::testlib;
use Test::More tests => 5;
@@ -18,8 +15,6 @@
my ($log,$show) = (0) x 2 ;
my $trace = $arg =~ /t/ ? 1 : 0 ;
-$::verbose = 1 if $arg =~ /v/;
-$::debug = 1 if $arg =~ /d/;
$log = 1 if $arg =~ /l/;
$show = 1 if $arg =~ /s/;
More information about the Pkg-perl-cvs-commits
mailing list