Rechercher une page de manuel
Moose::Cookbook::Basics::Recipe6.3pm
Langue: en
Version: 2008-11-07 (ubuntu - 07/07/09)
Section: 3 (Bibliothèques de fonctions)
NAME
Moose::Cookbook::Basics::Recipe6 - 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"/>'); } # <page><header/><report type="tps"/><footer/></page> print TPSReport->new->create;
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