From: Yuval Kogman <nothingmuch@woobling.org>
Date: Wed, 28 Jun 2006 01:33:43 +0000 (+0000)
Subject: Add bench dir and Bench::Point
X-Git-Tag: 0_33~37
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0f30f194be8fe9abbeb35c836d0ee0f991759a03;p=gitmo%2FClass-MOP.git

Add bench dir and Bench::Point
---

diff --git a/bench/lib/Bench/Point.pm b/bench/lib/Bench/Point.pm
new file mode 100644
index 0000000..e1584cc
--- /dev/null
+++ b/bench/lib/Bench/Point.pm
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+package Bench::Point;
+
+use strict;
+use warnings;
+
+sub new {
+    my ( $class, %params ) = @_;
+    
+    return bless {
+        x => $params{x},
+        y => $params{y},
+    }, $class;
+}
+
+sub x {
+    my ( $self, @args ) = @_;
+
+    if ( @args ) {
+        $self->{x} = $args[0];
+    }
+
+    return $self->{x};
+}
+
+sub y {
+    my ( $self, @args ) = @_;
+
+    if ( @args ) {
+        $self->{y} = $args[0];
+    }
+
+    return $self->{y};
+}
+
+sub clear {
+    my $self = shift;
+    @{ $self-> }{qw/x y/} = (0, 0);
+}
+
+__PACKAGE__;
+
+__END__
+