Moose-2.1405HEADMoose-2.1405master

1 files changed, 26 insertions, 0 deletions

diff --git a/benchmarks/simple_constructor.pl b/benchmarks/simple_constructor.pl
new file mode 100644
index 0000000..def63ed
--- /dev/null
+++ b/benchmarks/simple_constructor.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $num_iterations = shift || 100;
+
+{
+    package Foo;
+    use Moose;
+
+    has 'default'         => (is => 'rw', default => 10);
+    has 'default_sub'     => (is => 'rw', default => sub { [] });
+    has 'lazy'            => (is => 'rw', default => 10, lazy => 1);
+    has 'required'        => (is => 'rw', required => 1);
+    has 'weak_ref'        => (is => 'rw', weak_ref => 1);
+    has 'type_constraint' => (is => 'rw', isa => 'ArrayRef');
+}
+
+foreach (0 .. $num_iterations) {
+    my $foo = Foo->new(
+        required        => 'BAR',
+        type_constraint => [],
+        weak_ref        => {},
+    );
+}
\ No newline at end of file