aboutsummaryrefslogtreecommitdiff
path: root/t/TestConfig.pm
diff options
context:
space:
mode:
Diffstat (limited to 't/TestConfig.pm')
-rw-r--r--t/TestConfig.pm14
1 files changed, 2 insertions, 12 deletions
diff --git a/t/TestConfig.pm b/t/TestConfig.pm
index 886e66b..bd4f3f5 100644
--- a/t/TestConfig.pm
+++ b/t/TestConfig.pm
@@ -4,7 +4,7 @@ use strict;
4use warnings; 4use warnings;
5use Carp; 5use Carp;
6 6
7use Config::Tree qw(:sort); 7use Config::AST qw(:sort);
8use parent 'Config::Parser::Ini'; 8use parent 'Config::Parser::Ini';
9use Data::Dumper; 9use Data::Dumper;
10use File::Temp; 10use File::Temp;
@@ -64,17 +64,7 @@ sub success {
64 64
65sub canonical { 65sub canonical {
66 my $self = shift; 66 my $self = shift;
67 local %_ = @_; 67 return $self->SUPER::canonical(delim => ' ');
68 carp "unknown parameters: " . join(', ', keys(%_)) if (keys(%_));
69 return join $_{delim} // " ", map {
70 join('.', @{$_->[0]})
71 . "="
72 . Data::Dumper->new([$_->[1]->value])
73 ->Useqq(1)
74 ->Terse(1)
75 ->Indent(0)
76 ->Dump
77 } $self->flatten(sort => SORT_PATH);
78} 68}
79 69
80sub expected_error { 70sub expected_error {

Return to:

Send suggestions and report system problems to the System administrator.