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

package Report;

use Moose;

extends 'Document';

has 'summary' => ( is => 'ro' );

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

    my $content = inner();

    my $s = $self->summary;

    return <<"EOF";
$s

$content
EOF
};

no Moose;

__PACKAGE__->meta->make_immutable;

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