X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=bench%2Ffoo.pl;h=e99365bdbab20b208e8132cfd6c5981f0d4eaff7;hb=b26fab6dadbb855db6c465b976dd965088499b65;hp=a2c799a9fb7ec0ee785e109b5990e6b3f3bb3de4;hpb=26b2e5ab09bdd030faa1c8fc53066c6adfa22f09;p=gitmo%2FClass-MOP.git

diff --git a/bench/foo.pl b/bench/foo.pl
index a2c799a..e99365b 100755
--- a/bench/foo.pl
+++ b/bench/foo.pl
@@ -1,66 +1,5 @@
-#!perl
+#!perl -wd:NYTProf
 # 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;