From: gfx <gfuji@cpan.org>
Date: Wed, 15 Jul 2009 08:37:12 +0000 (+0900)
Subject: Profile script for KiokuDB
X-Git-Tag: 0.90~14
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8fe72460fadbc29bd44cb928a156036789920cc5;hp=1f80abf28f53cb5269f36b9b3ac76ffacc52b07b;p=gitmo%2FClass-MOP.git

Profile script for KiokuDB
---

diff --git a/bench/foo.pl b/bench/foo.pl
index a2c799a..5d89c4b 100755
--- a/bench/foo.pl
+++ b/bench/foo.pl
@@ -2,65 +2,4 @@
 # a moose using script for profiling
 # Usage: perl bench/profile.pl
 
-package Foo;
-use Moose;
-
-has aaa => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has bbb => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has ccc => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has ddd => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has eee => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-__PACKAGE__->meta->make_immutable();
-
-
-package Bar;
-use Moose;
-
-extends 'Foo';
-
-has xaaa => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has xbbb => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has xccc => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has xddd => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-has xeee => (
-	is => 'rw',
-	isa => 'Str',
-);
-
-__PACKAGE__->meta->make_immutable();
+require KiokuDB;