From a7394bcf271d838cbf9bfa58093257a5a367e097 Mon Sep 17 00:00:00 2001 From: Jens Rehsack Date: Tue, 14 Aug 2012 10:51:52 +0200 Subject: [PATCH] bump to 0.100 --- bin/check_web2.pl | 2 +- bin/wtscript2json.pl | 8 +++++--- dist.ini | 2 +- lib/Config/Any/WTScript.pm | 2 +- lib/WWW/Mechanize/Script.pm | 2 +- lib/WWW/Mechanize/Script/Plugin.pm | 2 +- lib/WWW/Mechanize/Script/Plugin/ContentSizeTest.pm | 2 +- lib/WWW/Mechanize/Script/Plugin/RegexMatchTest.pm | 2 +- lib/WWW/Mechanize/Script/Plugin/ResponseTimeTest.pm | 2 +- lib/WWW/Mechanize/Script/Plugin/StatusTest.pm | 2 +- lib/WWW/Mechanize/Script/Plugin/TextMatchTest.pm | 2 +- lib/WWW/Mechanize/Script/Util.pm | 2 +- 12 files changed, 16 insertions(+), 14 deletions(-) diff --git a/bin/check_web2.pl b/bin/check_web2.pl index 983eeab..e6f0afd 100644 --- a/bin/check_web2.pl +++ b/bin/check_web2.pl @@ -15,7 +15,7 @@ use Params::Util qw(_ARRAY); use WWW::Mechanize::Script::Util qw(:ALL); use WWW::Mechanize::Script; -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; my %opts; my @options = ( "file=s", "help|h", "usage|?" ); diff --git a/bin/wtscript2json.pl b/bin/wtscript2json.pl index b6d4cc3..27a357d 100644 --- a/bin/wtscript2json.pl +++ b/bin/wtscript2json.pl @@ -18,7 +18,7 @@ use Pod::Usage; use WWW::Mechanize::Script::Util qw(:ALL); use WWW::Mechanize::Script; -our $VERSION = '0.001_003'; +our $VERSION = '0.100'; my %opts = ( "input-files" => [], "output-files" => [], @@ -52,8 +52,10 @@ opt_required_all( \%opts, qw(input-files) ); opt_exclusive( \%opts, qw(output-files output-pattern) ); opt_required_one( \%opts, qw(output-files output-pattern) ); -_ARRAY( $opts{"input-files"} ) and $opts{"input-files"} = [ split(",", join(",", @{$opts{"input-files"}}) ) ]; -_ARRAY( $opts{"output-files"} ) and $opts{"output-files"} = [ split(",", join(",", @{$opts{"output-files"}}) ) ]; +_ARRAY( $opts{"input-files"} ) + and $opts{"input-files"} = [ split( ",", join( ",", @{ $opts{"input-files"} } ) ) ]; +_ARRAY( $opts{"output-files"} ) + and $opts{"output-files"} = [ split( ",", join( ",", @{ $opts{"output-files"} } ) ) ]; _ARRAY( $opts{"input-files"} ) and _ARRAY( $opts{"output-files"} ) diff --git a/dist.ini b/dist.ini index b9cad31..87d644d 100644 --- a/dist.ini +++ b/dist.ini @@ -1,6 +1,6 @@ name = WWW-Mechanize-Script -version = 0.001_004 +version = 0.100 author = Jens Rehsack license = Perl_5 copyright_holder = Jens Rehsack diff --git a/lib/Config/Any/WTScript.pm b/lib/Config/Any/WTScript.pm index 85abae3..b2c7b16 100644 --- a/lib/Config/Any/WTScript.pm +++ b/lib/Config/Any/WTScript.pm @@ -27,7 +27,7 @@ use File::Slurp qw(read_file); use constant ST_FILE => 0; use constant ST_TEST_BLOCK => 1; -$VERSION = '0.001_004'; +$VERSION = '0.100'; # horizontal space regexp my $reHS = qr/[\t ]/; diff --git a/lib/WWW/Mechanize/Script.pm b/lib/WWW/Mechanize/Script.pm index c932820..b4bf625 100644 --- a/lib/WWW/Mechanize/Script.pm +++ b/lib/WWW/Mechanize/Script.pm @@ -28,7 +28,7 @@ use WWW::Mechanize::Timed (); =cut -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; =method new(\%cfg) diff --git a/lib/WWW/Mechanize/Script/Plugin.pm b/lib/WWW/Mechanize/Script/Plugin.pm index dbb4ae8..cf9f5e7 100644 --- a/lib/WWW/Mechanize/Script/Plugin.pm +++ b/lib/WWW/Mechanize/Script/Plugin.pm @@ -5,7 +5,7 @@ use warnings; # ABSTRACT: plugin base class for check plugins -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; use 5.014; diff --git a/lib/WWW/Mechanize/Script/Plugin/ContentSizeTest.pm b/lib/WWW/Mechanize/Script/Plugin/ContentSizeTest.pm index 980b815..5e6d57d 100644 --- a/lib/WWW/Mechanize/Script/Plugin/ContentSizeTest.pm +++ b/lib/WWW/Mechanize/Script/Plugin/ContentSizeTest.pm @@ -7,7 +7,7 @@ use parent qw(WWW::Mechanize::Script::Plugin); # ABSTRACT: check for size of received content -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; use 5.014; diff --git a/lib/WWW/Mechanize/Script/Plugin/RegexMatchTest.pm b/lib/WWW/Mechanize/Script/Plugin/RegexMatchTest.pm index 373b9d7..0ccc6d5 100644 --- a/lib/WWW/Mechanize/Script/Plugin/RegexMatchTest.pm +++ b/lib/WWW/Mechanize/Script/Plugin/RegexMatchTest.pm @@ -9,7 +9,7 @@ use parent qw(WWW::Mechanize::Script::Plugin); use Params::Util qw(_ARRAY0); -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; use 5.014; diff --git a/lib/WWW/Mechanize/Script/Plugin/ResponseTimeTest.pm b/lib/WWW/Mechanize/Script/Plugin/ResponseTimeTest.pm index e9c413e..79ed91f 100644 --- a/lib/WWW/Mechanize/Script/Plugin/ResponseTimeTest.pm +++ b/lib/WWW/Mechanize/Script/Plugin/ResponseTimeTest.pm @@ -7,7 +7,7 @@ use parent qw(WWW::Mechanize::Script::Plugin); # ABSTRACT: check response time of request -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; use 5.014; diff --git a/lib/WWW/Mechanize/Script/Plugin/StatusTest.pm b/lib/WWW/Mechanize/Script/Plugin/StatusTest.pm index 19d8816..0572689 100644 --- a/lib/WWW/Mechanize/Script/Plugin/StatusTest.pm +++ b/lib/WWW/Mechanize/Script/Plugin/StatusTest.pm @@ -7,7 +7,7 @@ use parent qw(WWW::Mechanize::Script::Plugin); # ABSTRACT: prove expected HTTP status of the response -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; use 5.014; diff --git a/lib/WWW/Mechanize/Script/Plugin/TextMatchTest.pm b/lib/WWW/Mechanize/Script/Plugin/TextMatchTest.pm index 7f243d3..c971f94 100644 --- a/lib/WWW/Mechanize/Script/Plugin/TextMatchTest.pm +++ b/lib/WWW/Mechanize/Script/Plugin/TextMatchTest.pm @@ -9,7 +9,7 @@ use parent qw(WWW::Mechanize::Script::Plugin); use Params::Util qw(_ARRAY0); -our $VERSION = '0.001_004'; +our $VERSION = '0.100'; use 5.014; diff --git a/lib/WWW/Mechanize/Script/Util.pm b/lib/WWW/Mechanize/Script/Util.pm index 0c70c96..ed59643 100644 --- a/lib/WWW/Mechanize/Script/Util.pm +++ b/lib/WWW/Mechanize/Script/Util.pm @@ -18,7 +18,7 @@ use List::MoreUtils qw(uniq); use Params::Util qw(_HASH _ARRAY _STRING); use Pod::Usage; -$VERSION = '0.001_004'; +$VERSION = '0.100'; @EXPORT = (); @EXPORT_OK = qw(opt_required_all opt_required_one opt_exclusive load_config find_scripts); -- 2.11.4.GIT