[libmock-quick-perl] 01/07: Imported Upstream version 1.110

[gregor herrmann]

This is an automated email from the git hooks/post-receive script.

gregoa pushed a commit to branch master
in repository libmock-quick-perl.

commit 313f27680c6b302b24cb9d60af46a66f3bd2f6a1
Author: gregor herrmann <gregoa at debian.org>
Date:   Sun Oct 18 18:01:22 2015 +0200

    Imported Upstream version 1.110
---
 Changes                |  7 +++++++
 MANIFEST               |  7 ++++---
 MANIFEST.bak           | 22 ----------------------
 META.json              |  6 +++---
 META.yml               |  6 +++---
 lib/Mock/Quick.pm      |  2 +-
 lib/Mock/Quick/Util.pm |  2 +-
 t/clear_warn.t         | 25 +++++++++++++++++++++++++
 8 files changed, 44 insertions(+), 33 deletions(-)

diff --git a/Changes b/Changes
new file mode 100644
index 0000000..d4d0713
--- /dev/null
+++ b/Changes
@@ -0,0 +1,7 @@
+1.110   2015-08-26 10:02:22-07:00 America/Los_Angeles
+
+    - Fix Test from 1.109 to skip when required module is missing
+
+1.109   2015-08-26 08:51:08-07:00 America/Los_Angeles
+
+    - Fix #16, overloading + compare warning
diff --git a/MANIFEST b/MANIFEST
index 0ac9bac..31e8e84 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -1,4 +1,5 @@
 Build.PL
+Changes
 lib/Mock/Quick.pm
 lib/Mock/Quick/Class.pm
 lib/Mock/Quick/Method.pm
@@ -7,12 +8,10 @@ lib/Mock/Quick/Object/Control.pm
 lib/Mock/Quick/Util.pm
 lib/Object/Quick.pm
 MANIFEST			This list of files
-MANIFEST.bak
 MANIFEST.SKIP
-META.json
-META.yml
 README
 t/Class.t
+t/clear_warn.t
 t/intercept.t
 t/Method.t
 t/metrics.t
@@ -21,3 +20,5 @@ t/Object-Quick.t
 t/Object.t
 t/object_control.t
 t/Util.t
+META.yml
+META.json
diff --git a/MANIFEST.bak b/MANIFEST.bak
deleted file mode 100644
index b988d84..0000000
--- a/MANIFEST.bak
+++ /dev/null
@@ -1,22 +0,0 @@
-Build.PL
-lib/Mock/Quick.pm
-lib/Mock/Quick/Class.pm
-lib/Mock/Quick/Method.pm
-lib/Mock/Quick/Object.pm
-lib/Mock/Quick/Object/Control.pm
-lib/Mock/Quick/Util.pm
-lib/Object/Quick.pm
-MANIFEST			This list of files
-MANIFEST.SKIP
-README
-t/Class.t
-t/intercept.t
-t/Method.t
-t/metrics.t
-t/Mock-Quick.t
-t/Object-Quick.t
-t/Object.t
-t/object_control.t
-t/Util.t
-META.yml
-META.json
diff --git a/META.json b/META.json
index 46b78dc..0e3d52b 100644
--- a/META.json
+++ b/META.json
@@ -4,7 +4,7 @@
       "Chad Granum <exodist7 at gmail.com>"
    ],
    "dynamic_config" : 1,
-   "generated_by" : "Module::Build version 0.4208",
+   "generated_by" : "Module::Build version 0.4214",
    "license" : [
       "perl_5"
    ],
@@ -37,7 +37,7 @@
    "provides" : {
       "Mock::Quick" : {
          "file" : "lib/Mock/Quick.pm",
-         "version" : "1.108"
+         "version" : "1.110"
       },
       "Mock::Quick::Class" : {
          "file" : "lib/Mock/Quick/Class.pm"
@@ -70,5 +70,5 @@
          "url" : "http://github.com/exodist/Mock-Quick"
       }
    },
-   "version" : "1.108"
+   "version" : "1.110"
 }
diff --git a/META.yml b/META.yml
index a0129bd..c8c0a3c 100644
--- a/META.yml
+++ b/META.yml
@@ -9,7 +9,7 @@ build_requires:
 configure_requires:
   Module::Build: '0.42'
 dynamic_config: 1
-generated_by: 'Module::Build version 0.4208, CPAN::Meta::Converter version 2.140640'
+generated_by: 'Module::Build version 0.4214, CPAN::Meta::Converter version 2.150001'
 license: perl
 meta-spec:
   url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -18,7 +18,7 @@ name: Mock-Quick
 provides:
   Mock::Quick:
     file: lib/Mock/Quick.pm
-    version: '1.108'
+    version: '1.110'
   Mock::Quick::Class:
     file: lib/Mock/Quick/Class.pm
   Mock::Quick::Method:
@@ -39,4 +39,4 @@ resources:
   bugtracker: http://github.com/exodist/Mock-Quick/issues
   license: http://dev.perl.org/licenses/
   repository: http://github.com/exodist/Mock-Quick
-version: '1.108'
+version: '1.110'
diff --git a/lib/Mock/Quick.pm b/lib/Mock/Quick.pm
index c9999aa..4cf12c3 100644
--- a/lib/Mock/Quick.pm
+++ b/lib/Mock/Quick.pm
@@ -9,7 +9,7 @@ use Mock::Quick::Method;
 use Mock::Quick::Util;
 use Carp qw/carp/;
 
-our $VERSION = '1.108';
+our $VERSION = '1.110';
 
 import_arguments qw/intercept/;
 
diff --git a/lib/Mock/Quick/Util.pm b/lib/Mock/Quick/Util.pm
index 1b5bcb6..f536214 100644
--- a/lib/Mock/Quick/Util.pm
+++ b/lib/Mock/Quick/Util.pm
@@ -41,7 +41,7 @@ sub call {
             unless exists $self->{$name};
     }
 
-    if ( @_ && ref $_[0] && $_[0] == \$CLEAR ) {
+    if ( @_ && ref $_[0] && "$_[0]" eq "" . \$CLEAR ) {
         delete $self->{ $name };
         delete $control->metrics->{$name};
         return;
diff --git a/t/clear_warn.t b/t/clear_warn.t
new file mode 100644
index 0000000..1034fda
--- /dev/null
+++ b/t/clear_warn.t
@@ -0,0 +1,25 @@
+use strict;
+use warnings;
+
+use Test::More;
+
+BEGIN {
+    unless(eval { require Path::Class; 1 }) {
+        Test::More->import(skip_all => 'Path::Class is needed for this test');
+        exit 0;
+    }
+}
+
+use Mock::Quick;
+use Path::Class;
+
+my $x = qobj(foo => qmeth { print "# My file is $_[1]\n" });
+
+my @warnings;
+{
+    local $SIG{__WARN__} = sub { push @warnings => @_ };
+    $x->foo( file(".") );
+}
+ok(!@warnings, "No warnings") || print STDERR @warnings;
+
+done_testing;

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-perl/packages/libmock-quick-perl.git