File Coverage

lib/OODoc/Text/SubSubSection.pm
Criterion Covered Total %
statement 15 27 55.5
branch 0 6 0.0
condition 0 7 0.0
subroutine 5 10 50.0
pod 4 5 80.0
total 24 55 43.6


line stmt bran cond sub pod time code
1             # Copyrights 2003-2013 by [Mark Overmeer].
2             # For other contributors see ChangeLog.
3             # See the manual pages for details on the licensing terms.
4             # Pod stripped from pm file by OODoc 2.00.
5              
6             package OODoc::Text::SubSubSection;
7 1     1   5 use vars '$VERSION';
  1         3  
  1         42  
8             $VERSION = '2.00';
9              
10 1     1   4 use base 'OODoc::Text::Structure';
  1         2  
  1         80  
11              
12 1     1   5 use strict;
  1         1  
  1         31  
13 1     1   4 use warnings;
  1         1  
  1         27  
14              
15 1     1   5 use Log::Report 'oodoc';
  1         1  
  1         6  
16              
17              
18             sub init($)
19 0     0 0   { my ($self, $args) = @_;
20 0   0       $args->{type} ||= 'Subsubsection';
21 0 0 0       $args->{container} ||= delete $args->{subsection} or panic;
22 0   0       $args->{level} ||= 3;
23              
24 0 0         $self->SUPER::init($args)
25             or return;
26              
27 0           $self;
28             }
29              
30             sub findEntry($)
31 0     0 1   { my ($self, $name) = @_;
32 0 0         $self->name eq $name ? $self : ();
33             }
34              
35             #--------------
36              
37 0     0 1   sub subsection() { shift->container }
38              
39              
40 0     0 1   sub chapter() { shift->subsection->chapter }
41              
42             sub path()
43 0     0 1   { my $self = shift;
44 0           $self->subsection->path . '/' . $self->name;
45             }
46              
47             1;