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

   1 package TPSReport;
   2
   3 use Moose;
   4
   5 extends 'Report';
   6
   7 has [ qw( t p s ) ] => ( is => 'ro' );
   8
   9 augment output => sub {
  10     my $self = shift;
  11
  12     return join q{}, map { "$_: " . $self->$_ . "\n" } qw( t p s );
  13 };
  14
  15 no Moose;
  16
  17 __PACKAGE__->meta->make_immutable;
  18
  19 1;