Rechercher une page de manuel
Moose::Cookbook::Recipe7.3pm
Langue: en
Version: 2007-09-30 (mandriva - 01/05/08)
Section: 3 (Bibliothèques de fonctions)
NAME
Moose::Cookbook::Recipe7 - The augment/inner exampleSYNOPSIS
package Document::Page; use Moose; has 'body' => (is => 'rw', isa => 'Str', default => sub {''}); sub create { my $self = shift; $self->open_page; inner(); $self->close_page; } sub append_body { my ($self, $appendage) = @_; $self->body($self->body . $appendage); } sub open_page { (shift)->append_body('<page>') } sub close_page { (shift)->append_body('</page>') } package Document::PageWithHeadersAndFooters; use Moose; extends 'Document::Page'; augment 'create' => sub { my $self = shift; $self->create_header; inner(); $self->create_footer; }; sub create_header { (shift)->append_body('<header/>') } sub create_footer { (shift)->append_body('<footer/>') } package TPSReport; use Moose; extends 'Document::PageWithHeadersAndFooters'; augment 'create' => sub { my $self = shift; $self->create_tps_report; }; sub create_tps_report { (shift)->append_body('<report type="tps"/>') }
DESCRIPTION
Coming Soon.CONCLUSION
FOOTNOTES
AUTHOR
Stevan Little <stevan@iinteractive.com>COPYRIGHT AND LICENSE
Copyright 2007 by Infinity Interactive, Inc.<http://www.iinteractive.com>
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
Contenus ©2006-2024 Benjamin Poulain
Design ©2006-2024 Maxime Vantorre