t/DynamicMoose/ProhibitPublicBuilders.run

   1 ## name No builder method
   2 ## failures 0
   3 ## cut
   4
   5 package Class;
   6 use Moose;
   7
   8 has attr => (
   9     is => 'rw',
  10 );
  11
  12 #-----------------------------------------------------------------------------
  13
  14 ## name Private builder method
  15 ## failures 0
  16 ## cut
  17
  18 package Class;
  19 use Moose;
  20
  21 has attr => (
  22     is => 'rw',
  23     builder => '_build_attr',
  24 );
  25
  26 #-----------------------------------------------------------------------------
  27
  28 ## name Public builder method
  29 ## failures 1
  30 ## cut
  31
  32 package Class;
  33 use Moose;
  34
  35 has attr => (
  36     is => 'rw',
  37     builder => 'build_attr',
  38 );
  39
  40 #-----------------------------------------------------------------------------
  41
  42 ## name Public builder method, declared dynamically
  43 ## failures 1
  44 ## cut
  45
  46 package Class;
  47 use Moose;
  48
  49 __PACKAGE__->meta->add_attribute(attr => (
  50     is => 'rw',
  51     builder => 'build_attr',
  52 ));
  53
  54 #-----------------------------------------------------------------------------
  55
  56 ## name Public builder method, named dynamically
  57 ## failures 1
  58 ## cut
  59
  60 package Class;
  61 use Moose;
  62
  63 my $builder = 'build_' . rand;
  64 __PACKAGE__->meta->add_attribute(attr => (
  65     is => 'rw',
  66     builder => $builder,
  67 ));
  68