Improve a benchmark

diff --git a/benchmarks/vs_caf_w_destructors.pl b/benchmarks/vs_caf_w_destructors.pl
index 86fffe5..7d23977 100644 (file)
--- a/benchmarks/vs_caf_w_destructors.pl
+++ b/benchmarks/vs_caf_w_destructors.pl
@@ -8,7 +8,8 @@
     use Moose;
     has foo => (is => 'rw');
 
-    sub DEMOLISH { }
+    my $i = 0;
+    sub DEMOLISH { $i++ }
     __PACKAGE__->meta->make_immutable();
 }
 {
@@ -16,7 +17,8 @@
     use Mouse;
     has foo => (is => 'rw');
 
-    sub DEMOLISH { }
+    my $i = 0;
+    sub DEMOLISH { $i++ }
     __PACKAGE__->meta->make_immutable();
 }
 {
@@ -26,7 +28,8 @@
     use base 'Class::Accessor::Fast';
     __PACKAGE__->mk_accessors(qw(foo));
 
-    sub DESTROY { }
+    my $i = 0;
+    sub DESTROY { $i++ }
 }
 
 use Benchmark qw(cmpthese);