File Coverage

blib/lib/Pod/WSDL/Doc.pm
Criterion Covered Total %
statement 13 13 100.0
branch 4 4 100.0
condition 2 2 100.0
subroutine 4 4 100.0
pod 1 1 100.0
total 24 24 100.0


line stmt bran cond sub pod time code
1             package Pod::WSDL::Doc;
2 8     8   16081 use strict;
  8         8  
  8         266  
3 8     8   33 use warnings;
  8         11  
  8         252  
4              
5 8     8   335 use Pod::WSDL::AUTOLOAD;
  8         10  
  8         934  
6              
7             our $VERSION = "0.05";
8             our @ISA = qw/Pod::WSDL::AUTOLOAD/;
9             sub new {
10 7     7 1 1037 my ($pkg, $str) = @_;
11              
12 7 100       18 defined $str or $str = ''; # avoids warnings
13 7 100       40 $str =~ /\s*_DOC\s*(.*)/ or die "_DOC statements must have structure '_DOC ', like '_DOC This is my documentation'";
14            
15 5   100     37 bless {
16             _descr => $1 || '',
17             }, $pkg;
18             }
19              
20             1;
21             __END__