X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=benchmarks%2Fcmop%2Flib%2FPlain%2FPoint3D.pm;fp=benchmarks%2Fcmop%2Flib%2FPlain%2FPoint3D.pm;h=7ec0aba7a8a45b22e0574c4e302c12e84bbc7bce;hb=38bf2a2585e26a47c919fd4c286b7716acb51c00;hp=0000000000000000000000000000000000000000;hpb=c4df9302dc30e06117434030b88568e22e6bdec5;p=gitmo%2FMoose.git

diff --git a/benchmarks/cmop/lib/Plain/Point3D.pm b/benchmarks/cmop/lib/Plain/Point3D.pm
new file mode 100644
index 0000000..7ec0aba
--- /dev/null
+++ b/benchmarks/cmop/lib/Plain/Point3D.pm
@@ -0,0 +1,36 @@
+#!/usr/bin/perl
+
+package Plain::Point3D;
+
+use strict;
+use warnings;
+
+use base 'Plain::Point';
+
+sub new {
+    my ( $class, %params ) = @_;
+    my $self = $class->SUPER::new( %params );
+    $self->{z} = $params{z};
+    return $self;
+}
+
+sub z {
+    my ( $self, @args ) = @_;
+
+    if ( @args ) {
+        $self->{z} = $args[0];
+    }
+
+    return $self->{z};
+}
+
+sub clear {
+    my $self = shift;
+    $self->SUPER::clear();
+    $self->{z} = 0;
+}
+
+__PACKAGE__;
+
+__END__
+