Commit 9709bfe5bdb30895aa1beb345cd82480f8388411 - cme

+1

-1

Build.PL less more

26	26	"Dominique Dumont"
27	27	],
28	28	"dist_name" => "App-Cme",
29		"dist_version" => "1.029",
	29	"dist_version" => "1.030",
30	30	"license" => "lgpl",
31	31	"module_name" => "App::Cme",
32	32	"recommends" => {

+3

-3

CONTRIBUTING.md less more

5	5	to improve documentation.
6	6
7	7	Feel free to ask questions by sending a mail to
8		[config-model-user mailing list](mailto:config-model-users@lists.sourceforge.net)
	8	[the author](mailto:ddumont@cpan.org)
9	9
10	10	## Log a bug ##
11	11

45	45	* commit all files: `git add -A ; git commit -m"committed all"`
46	46	* edit files
47	47	* run `prove -l t` to run non-regression tests
48		* run `git diff` and send the output on [config-model-user mailing list](mailto:config-model-users@lists.sourceforge.net)
	48	* run `git diff` and send the output to the [author](mailto:ddumont@cpan.org)
49	49
50	50
51	51	## Edit source code from Debian source package or CPAN tarball ##

59	59	* commit all files: `git add -A ; git commit -m"committed all"`
60	60	* edit files
61	61	* run `prove -l t` to run non-regression tests
62		* run `git diff` and send the output on [config-model-user mailing list](mailto:config-model-users@lists.sourceforge.net)
	62	* run `git diff` and send the output to the [author](mailto:ddumont@cpan.org)
63	63
64	64	## Provide feedback ##
65	65

+5

-0

Changes less more

	0	1.030 2019-09-11
	1
	2	Improve output of cme:
	3	* show more information when running "cme help"
	4
0	5	1.029 2018-08-20
1	6
2	7	Bug fixes:

+3

-3

META.json less more

73	73	"web" : "http://github.com/dod38fr/cme-perl"
74	74	}
75	75	},
76		"version" : "1.029",
77		"x_generated_by_perl" : "v5.26.2",
78		"x_serialization_backend" : "Cpanel::JSON::XS version 4.04"
	76	"version" : "1.030",
	77	"x_generated_by_perl" : "v5.28.1",
	78	"x_serialization_backend" : "Cpanel::JSON::XS version 4.12"
79	79	}
80	80

+2

-2

META.yml less more

44	44	bugtracker: https://github.com/dod38fr/cme-perl/issues
45	45	homepage: https://github.com/dod38fr/config-model/wiki
46	46	repository: https://github.com/dod38fr/cme-perl.git
47		version: '1.029'
48		x_generated_by_perl: v5.26.2
	47	version: '1.030'
	48	x_generated_by_perl: v5.28.1
49	49	x_serialization_backend: 'YAML::Tiny version 1.73'

+6

-8

bin/cme less more

34	34
35	35	=head1 VERSION
36	36
37		version 1.029
	37	version 1.030
38	38
39	39	=head1 SYNOPSIS
40	40

400	400	L<example from OpenSsh\|https://github.com/dod38fr/config-model/wiki/New-parameter-for-openssh-example>
401	401	to learn how to fix a model.
402	402
403		=head1 SUPPORT
404
405		For support, please check the following resources:
	403	=head1 FOR MORE INFORMATION
	404
	405	For more informations, please check:
406	406
407	407	=over
408	408
409	409	=item *
410	410
411		The config-model users mailing list:
412
413		config-model-users at lists.sourceforge.net
	411	config-model wiki: L<http://github.com/dod38fr/config-model/wiki>
414	412
415	413	=item *
416	414
417		The config-model wiki: L<http://github.com/dod38fr/config-model/wiki>
	415	Blogs about this project: L<https://ddumont.wordpress.com/category/perl/configmodel/>
418	416
419	417	=back
420	418

+2

-2

lib/App/Cme/Command/check.pm less more

9	9	# ABSTRACT: Check the configuration of an application
10	10
11	11	package App::Cme::Command::check ;
12		$App::Cme::Command::check::VERSION = '1.029';
	12	$App::Cme::Command::check::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

86	86
87	87	=head1 VERSION
88	88
89		version 1.029
	89	version 1.030
90	90
91	91	=head1 SYNOPSIS
92	92

+2

-2

lib/App/Cme/Command/dump.pm less more

9	9	# ABSTRACT: Dump the configuration of an application
10	10
11	11	package App::Cme::Command::dump ;
12		$App::Cme::Command::dump::VERSION = '1.029';
	12	$App::Cme::Command::dump::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

103	103
104	104	=head1 VERSION
105	105
106		version 1.029
	106	version 1.030
107	107
108	108	=head1 SYNOPSIS
109	109

+2

-2

lib/App/Cme/Command/edit.pm less more

9	9	# ABSTRACT: Edit the configuration of an application
10	10
11	11	package App::Cme::Command::edit ;
12		$App::Cme::Command::edit::VERSION = '1.029';
	12	$App::Cme::Command::edit::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

123	123
124	124	=head1 VERSION
125	125
126		version 1.029
	126	version 1.030
127	127
128	128	=head1 SYNOPSIS
129	129

+2

-2

lib/App/Cme/Command/fix.pm less more

9	9	# ABSTRACT: Fix the configuration of an application
10	10
11	11	package App::Cme::Command::fix ;
12		$App::Cme::Command::fix::VERSION = '1.029';
	12	$App::Cme::Command::fix::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

79	79
80	80	=head1 VERSION
81	81
82		version 1.029
	82	version 1.030
83	83
84	84	=head1 SYNOPSIS
85	85

+2

-2

lib/App/Cme/Command/fusefs.pm less more

9	9	# ABSTRACT: Edit the configuration of an application with fuse
10	10
11	11	package App::Cme::Command::fusefs ;
12		$App::Cme::Command::fusefs::VERSION = '1.029';
	12	$App::Cme::Command::fusefs::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

108	108
109	109	=head1 VERSION
110	110
111		version 1.029
	111	version 1.030
112	112
113	113	=head1 SYNOPSIS
114	114

+2

-2

lib/App/Cme/Command/gen_class_pod.pm less more

9	9	# ABSTRACT: Generates pod doc from model files
10	10
11	11	package App::Cme::Command::gen_class_pod ;
12		$App::Cme::Command::gen_class_pod::VERSION = '1.029';
	12	$App::Cme::Command::gen_class_pod::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

48	48
49	49	=head1 VERSION
50	50
51		version 1.029
	51	version 1.030
52	52
53	53	=head1 SYNOPSIS
54	54

+2

-2

lib/App/Cme/Command/list.pm less more

9	9	# ABSTRACT: List applications handled by cme
10	10
11	11	package App::Cme::Command::list ;
12		$App::Cme::Command::list::VERSION = '1.029';
	12	$App::Cme::Command::list::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

66	66
67	67	=head1 VERSION
68	68
69		version 1.029
	69	version 1.030
70	70
71	71	=head1 SYNOPSIS
72	72

+2

-2

lib/App/Cme/Command/migrate.pm less more

9	9	# ABSTRACT: Migrate the configuration of an application
10	10
11	11	package App::Cme::Command::migrate ;
12		$App::Cme::Command::migrate::VERSION = '1.029';
	12	$App::Cme::Command::migrate::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

69	69
70	70	=head1 VERSION
71	71
72		version 1.029
	72	version 1.030
73	73
74	74	=head1 SYNOPSIS
75	75

+2

-2

lib/App/Cme/Command/modify.pm less more

9	9	# ABSTRACT: Modify the configuration of an application
10	10
11	11	package App::Cme::Command::modify ;
12		$App::Cme::Command::modify::VERSION = '1.029';
	12	$App::Cme::Command::modify::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

80	80
81	81	=head1 VERSION
82	82
83		version 1.029
	83	version 1.030
84	84
85	85	=head1 SYNOPSIS
86	86

+3

-3

lib/App/Cme/Command/run.pm less more

9	9	# ABSTRACT: Run a cme script
10	10
11	11	package App::Cme::Command::run ;
12		$App::Cme::Command::run::VERSION = '1.029';
	12	$App::Cme::Command::run::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

250	250	}
251	251
252	252	package App::Cme::Run::Var;
253		$App::Cme::Run::Var::VERSION = '1.029';
	253	$App::Cme::Run::Var::VERSION = '1.030';
254	254	require Tie::Hash;
255	255
256	256	our @ISA = qw(Tie::ExtraHash);

277	277
278	278	=head1 VERSION
279	279
280		version 1.029
	280	version 1.030
281	281
282	282	=head1 SYNOPSIS
283	283

+2

-2

lib/App/Cme/Command/search.pm less more

9	9	# ABSTRACT: Search the configuration of an application
10	10
11	11	package App::Cme::Command::search ;
12		$App::Cme::Command::search::VERSION = '1.029';
	12	$App::Cme::Command::search::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

84	84
85	85	=head1 VERSION
86	86
87		version 1.029
	87	version 1.030
88	88
89	89	=head1 SYNOPSIS
90	90

+2

-2

lib/App/Cme/Command/shell.pm less more

9	9	# ABSTRACT: Edit the configuration of an application with a shell
10	10
11	11	package App::Cme::Command::shell ;
12		$App::Cme::Command::shell::VERSION = '1.029';
	12	$App::Cme::Command::shell::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

76	76
77	77	=head1 VERSION
78	78
79		version 1.029
	79	version 1.030
80	80
81	81	=head1 SYNOPSIS
82	82

+2

-2

lib/App/Cme/Command/update.pm less more

9	9	# ABSTRACT: Update the configuration of an application
10	10
11	11	package App::Cme::Command::update ;
12		$App::Cme::Command::update::VERSION = '1.029';
	12	$App::Cme::Command::update::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

90	90
91	91	=head1 VERSION
92	92
93		version 1.029
	93	version 1.030
94	94
95	95	=head1 SYNOPSIS
96	96

+3

-3

lib/App/Cme/Common.pm less more

9	9	#ABSTRACT: Common methods for App::Cme
10	10
11	11	package App::Cme::Common;
12		$App::Cme::Common::VERSION = '1.029';
	12	$App::Cme::Common::VERSION = '1.030';
13	13	use strict;
14	14	use warnings;
15	15	use 5.10.1;

239	239	my $sections = $pom->head1();
240	240	my @ret ;
241	241	foreach my $s (@$sections) {
242		push (@ret ,$s) if $s->title() =~ /DESCRIPTION\|EXIT/;
	242	push (@ret ,$s) if $s->title() =~ /DESCRIPTION\|USAGE\|OPTIONS\|EXIT/;
243	243	}
244	244	return join ("", map { Pod::POM::View::Text->print($_)} @ret) . "Options:\n";;
245	245	}

258	258
259	259	=head1 VERSION
260	260
261		version 1.029
	261	version 1.030
262	262
263	263	=head1 SYNOPSIS
264	264

+2

-2

lib/App/Cme.pm less more

7	7	# The GNU Lesser General Public License, Version 2.1, February 1999
8	8	#
9	9	package App::Cme ;
10		$App::Cme::VERSION = '1.029';
	10	$App::Cme::VERSION = '1.030';
11	11	use strict;
12	12	use warnings;
13	13	use 5.10.1;

32	32
33	33	=head1 VERSION
34	34
35		version 1.029
	35	version 1.030
36	36
37	37	=head1 AUTHOR
38	38

+2

-1

t/cme-command.t less more

241	241
242	242
243	243	# test cme run real script with arguments
	244	my $i=0;
244	245	foreach my $test ( @script_tests) {
245	246	subtest $test->{label} => sub {
246		my $script = $wr_dir->child('my-script.cme');
	247	my $script = $wr_dir->child('my-script'.$i++.'.cme');
247	248	$script->spew_utf8( map { "$_\n"} @{$test->{script}});
248	249
249	250	my $cmd = [