Changeset 25702

Timestamp:

12/02/08 19:22:53 (5 weeks ago)

Author:

tokuhirom

Message:

display module version

Files:

• lang/perl/Shika/trunk/benchmark/new-get-set.pl (modified) (3 diffs)

lang/perl/Shika/trunk/benchmark/new-get-set.pl

@@ -46 +46 @@
     no Moose;
     __PACKAGE__->meta->make_immutable;
+    1;
+}
+
+{
+    package MouseDefault;
+    use Mouse;
+
+    has userid => (
+        is      => 'rw',
+        lazy    => 1,
+        default => sub {
+            my $self = shift;
+            return $self->agent->is_non_mobile ? 90 : $self->agent->user_id;
+        }
+    );
+
+    has agent  => (
+        is       => 'rw',
+        required => 1,
+    );
+
+    no Mouse;
     1;
 }
@@ -129 +151 @@
 #    my $obj5 = ShikaDefault->new( agent => $agent );
 
+{
+    no strict 'refs';
+    for my $key (qw/Moose Class::MOP Mouse Shika/) {
+        my $version = ${"$key\::VERSION"};
+        print "$key: $version\n";
+    }
+}
+
 cmpthese(10000,{
     moose_build => sub {
@@ -137 +167 @@
     moose_default    => sub {
         my $obj = MooseDefault->new( agent => $agent );
+        $obj->userid;
+        $obj->userid('hoge');
+    },
+    mouse_default    => sub {
+        my $obj = MouseDefault->new( agent => $agent );
         $obj->userid;
         $obj->userid('hoge');