[gitmo/moose-presentations.git] / moose-class / exercises / answers / 04-method-modifiers / TPSReport.pm

package TPSReport;

use Moose;

extends 'Report';

has [ qw( t p s ) ] => ( is => 'ro' );

augment output => sub {
    my $self = shift;

    return join q{}, map { "$_: " . $self->$_ . "\n" } qw( t p s );
};

no Moose;

__PACKAGE__->meta->make_immutable;

1;
Commit	Line	Data
538499df	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;