moose-class/exercises/answers/04-method-modifiers/Report.pm

   1 package Report;
   2
   3 use Moose;
   4
   5 extends 'Document';
   6
   7 has 'summary' => ( is => 'ro' );
   8
   9 augment output => sub {
  10     my $self = shift;
  11
  12     my $content = inner();
  13
  14     my $s = $self->summary;
  15
  16     return <<"EOF";
  17 $s
  18
  19 $content
  20 EOF
  21 };
  22
  23 no Moose;
  24
  25 __PACKAGE__->meta->make_immutable;
  26
  27 1;