projects
/
gitmo/moose-presentations.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
c88a79a5e6b775cf7ac20087ad1cc3ddf4ae8635
[gitmo/moose-presentations.git]
/
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;