bench/foo.pl

   1 #!perl
   2 # a moose using script for profiling
   3 # Usage: perl bench/profile.pl
   4
   5 package Foo;
   6 use Moose;
   7
   8 has aaa => (
   9         is => 'rw',
  10         isa => 'Str',
  11 );
  12
  13 has bbb => (
  14         is => 'rw',
  15         isa => 'Str',
  16 );
  17
  18 has ccc => (
  19         is => 'rw',
  20         isa => 'Str',
  21 );
  22
  23 has ddd => (
  24         is => 'rw',
  25         isa => 'Str',
  26 );
  27
  28 has eee => (
  29         is => 'rw',
  30         isa => 'Str',
  31 );
  32
  33 __PACKAGE__->meta->make_immutable();
  34
  35
  36 package Bar;
  37 use Moose;
  38
  39 extends 'Foo';
  40
  41 has xaaa => (
  42         is => 'rw',
  43         isa => 'Str',
  44 );
  45
  46 has xbbb => (
  47         is => 'rw',
  48         isa => 'Str',
  49 );
  50
  51 has xccc => (
  52         is => 'rw',
  53         isa => 'Str',
  54 );
  55
  56 has xddd => (
  57         is => 'rw',
  58         isa => 'Str',
  59 );
  60
  61 has xeee => (
  62         is => 'rw',
  63         isa => 'Str',
  64 );
  65
  66 __PACKAGE__->meta->make_immutable();