package POOF::Example::Wheel; use strict; use warnings; use base qw(POOF); #------------------------------------------------------------------------------- # init #------------------------------------------------------------------------------- # properties sub Tire : Property Public { { 'type' => 'POOF::Example::Tire', } } sub Rim : Property Public { { 'type' => 'POOF::Example::Rim', } } #------------------------------------------------------------------------------- # methods 1; __END__ =head1 NAME POOF::Example::Wheel - Sample class to illustrate POOF. =head1 SYNOPSIS Todo =head1 SEE ALSO POOF man page. =head1 AUTHOR Benny Millares =head1 COPYRIGHT AND LICENSE Copyright (C) 2007 by Benny Millares This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available. =cut