From edfeb103b85e10aa9e6825d3b92c5888fb4dea94 Mon Sep 17 00:00:00 2001 From: Sergey Poznyakoff Date: Thu, 12 Jul 2018 06:09:03 +0000 Subject: Drop dependency on autodie * Changes: Update * lib/Config/HAProxy.pm: Improve description of the write method. * t/format.t: Pass string ref to write. Don't use autodie. * t/select.t: Don't use autodie. --- diff --git a/Changes b/Changes index f67f71f..2fe0426 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,9 @@ Revision history for Perl extension Config::HAProxy. +1.01 Thu Jul 12 09:04:28 2018 + - set minimal required Perl version + - drop dependency on autodie + 1.00 Sun Jul 8 19:57:57 2018 - original revision diff --git a/lib/Config/HAProxy.pm b/lib/Config/HAProxy.pm index 74eafa4..9a8d666 100644 --- a/lib/Config/HAProxy.pm +++ b/lib/Config/HAProxy.pm @@ -371,7 +371,8 @@ Saves the parse tree in the configuration file. $cfg->write($file, %hash); -Writes configuration to the named file or file handle. If B<$file> is the +Writes configuration to the named file or file handle. First argument +can be a file name, file handle or a string reference. If it is the only argument, the original indentation is preserved. Otherwise, if B<%hash> controls the indentation of the output. It must contain at least the B key, which specifies the amount of indentation per nesting diff --git a/t/format.t b/t/format.t index 06b9884..2d124fc 100644 --- a/t/format.t +++ b/t/format.t @@ -3,7 +3,6 @@ use lib qw(t lib); use strict; use warnings; use Test::More; -use autodie; BEGIN { plan tests => 6; @@ -14,9 +13,7 @@ my $hp = new Test::HAProxy; isa_ok($hp,'Test::HAProxy'); my $s; -open(my $fh, '>', \$s); -$hp->write($fh); -close $fh; +$hp->write(\$s); is($s, q{global # comment @@ -33,9 +30,7 @@ backend out server localhost http://127.0.0.1 }, 'default write'); -open($fh, '>', \$s); -$hp->write($fh, indent => 2); -close $fh; +$hp->write(\$s, indent => 2); is($s, q{global # comment @@ -52,9 +47,7 @@ backend out server localhost http://127.0.0.1 }, 'reindent'); -open($fh, '>', \$s); -$hp->write($fh, indent => 2, reindent_comments => 1); -close $fh; +$hp->write(\$s, indent => 2, reindent_comments => 1); is($s, q{global # comment @@ -71,9 +64,7 @@ backend out server localhost http://127.0.0.1 }, 'reindent comments'); -open($fh, '>', \$s); -$hp->write($fh, indent => 4, tabstop => [ 10, 24 ]); -close $fh; +$hp->write(\$s, indent => 4, tabstop => [ 10, 24 ]); is($s, q{global # comment diff --git a/t/select.t b/t/select.t index 0be1c9c..1930ff6 100644 --- a/t/select.t +++ b/t/select.t @@ -3,7 +3,6 @@ use lib qw(t lib); use strict; use warnings; use Test::More; -use autodie; BEGIN { plan tests => 4; -- cgit v0.9.0.3