Add cache_hits method

lib/XML/LibXML/Cache/Base.pm

@@ -19,17 +19,29 @@ my $deps_found;
 sub new {
     my $class = shift;
 
-    my $self = { cache => {} };
+    my $self = {
+        cache => {},
+        hits  => 0,
+    };
 
     return bless($self, $class);
 }
 
+sub cache_hits {
+    my $self = shift;
+
+    return $self->{hits};
+}
+
 sub _cache_lookup {
     my ($self, $filename, $get_item) = @_;
 
     my $item = $self->_cache_read($filename);
 
-    return $item if $item;
+    if ($item) {
+        ++$self->{hits};
+        return $item;
+    }
 
     $deps_found = {};
 
@@ -120,5 +132,13 @@ Base class for the document and style sheet caches.
 
 =head2 new
 
+Only used by subclasses.
+
+=head2 cache_hits
+
+    my $hits = $cache->cache_hits;
+
+Return the number of cache hits.
+
 =cut
 

t/xml.t

@@ -2,7 +2,7 @@
 use strict;
 
 use File::Touch;
-use Test::More tests => 11;
+use Test::More tests => 14;
 use Test::Deep;
 
 $ENV{XML_CATALOG_FILES} = '';
@@ -26,6 +26,9 @@ isa_ok($cached_rec, 'ARRAY');
 my ($cached_doc, $deps) = @$cached_rec;
 is($cached_doc, $doc, 'cached doc');
 
+my $hits = $cache->cache_hits;
+is($hits, 0, 'cache hits before');
+
 my $number  = re(qr/^\d+\z/);
 my $numbers = [ $number, $number ];
 
@@ -50,9 +53,15 @@ cmp_deeply(
 $cached_doc = $cache->parse_file($filename);
 is(int($cached_doc), int($doc), 'cached doc');
 
+$hits = $cache->cache_hits;
+is($hits, 1, 'cache hits after');
+
 $ref = File::Touch->new(mtime => $time, no_create => 1);
 $ref->touch($entity_filename);
 
 my $new_doc = $cache->parse_file($filename);
 isnt(int($new_doc), int($doc), 'new doc');
 
+$hits = $cache->cache_hits;
+is($hits, 1, 'cache hits after');
+