moose-meta-attr.txt

• Back
• Raw format

  .-------------------------------------.   .-------------------------------------.
  | My::App::Meta::Role                 |   | My::App::Meta::Class                |
  |  has table => (                     |   |  has table => (                     |
  |    default => sub { { foo => 1 } }, |   |    default => sub { { bar => 1 } }, |
  |  );                                 |   |  );                                 |
  '-------------------------------------'   '-------------------------------------'

  .---------------------------------.       .---------------------------------.
  | package My::App::Role1;         |       | package My::App::Class1;        |
  |                                 |       |                                 |
  | # instead of use Moose::Role:   |       | # instead of use Moose:         |
  | use My::App::Meta::Role         |       | use My::App::Meta::Class;       |
  |                                 |       |                                 |
  | 1;                              |       | with 'My::App::Role1';          |
  '---------------------------------'       |                                 |
                                            | 1;                              |
                                            '---------------------------------'

                                            .--------------------------------------------.
                                            | # Then i want:                             |
                                            | print Dumper My::App::Class1->meta->table; |
                                            | # to print                                 |
                                            | {                                          |
                                            |  foo => 1,                                 |
                                            |  bar => 1,                                 |
                                            | }                                          |
                                            '--------------------------------------------'