# Copyrights 2003-2009 by Mark Overmeer. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 1.05. package OODoc::Text::SubSubSection; use vars '$VERSION'; $VERSION = '1.05'; use base 'OODoc::Text::Structure'; use strict; use warnings; use Carp; sub init($) { my ($self, $args) = @_; $args->{type} ||= 'Subsubsection'; $args->{container} ||= delete $args->{subsection} or confess; $args->{level} ||= 3; $self->SUPER::init($args) or return; $self; } sub findEntry($) { my ($self, $name) = @_; $self->name eq $name ? $self : (); } sub subsection() { shift->container } sub chapter() { shift->subsection->chapter } sub path() { my $self = shift; $self->subsection->path . '/' . $self->name; } 1;