File Coverage

lib/OODoc/Text/Option.pm
Criterion Covered Total %
statement 15 23 65.2
branch 0 6 0.0
condition 0 2 0.0
subroutine 5 8 62.5
pod 2 3 66.6
total 22 42 52.3


line stmt bran cond sub pod time code
1             # Copyrights 2003-2015 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.01.
5              
6             package OODoc::Text::Option;
7 1     1   813 use vars '$VERSION';
  1         2  
  1         50  
8             $VERSION = '2.01';
9              
10 1     1   4 use base 'OODoc::Text';
  1         2  
  1         68  
11              
12 1     1   5 use strict;
  1         2  
  1         20  
13 1     1   4 use warnings;
  1         1  
  1         35  
14              
15 1     1   4 use Log::Report 'oodoc';
  1         2  
  1         5  
16              
17              
18             sub init($)
19 0     0 0   { my ($self, $args) = @_;
20 0   0       $args->{type} ||= 'Option';
21 0 0         $args->{container} = delete $args->{subroutine} or panic;
22              
23 0 0         $self->SUPER::init($args)
24             or return;
25              
26 0 0         $self->{OTO_parameters} = delete $args->{parameters} or panic;
27              
28 0           $self;
29             }
30              
31             #-------------------------------------------
32              
33              
34 0     0 1   sub subroutine() { shift->container }
35              
36              
37 0     0 1   sub parameters() { shift->{OTO_parameters} }
38              
39             1;