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   37266 use strict;
  8         15  
  8         415  
3 8     8   43 use warnings;
  8         15  
  8         300  
4              
5 8     8   959 use Pod::WSDL::AUTOLOAD;
  8         17  
  8         1237  
6              
7             our $VERSION = "0.05";
8             our @ISA = qw/Pod::WSDL::AUTOLOAD/;
9             sub new {
10 7     7 1 1461 my ($pkg, $str) = @_;
11              
12 7 100       24 defined $str or $str = ''; # avoids warnings
13 7 100       57 $str =~ /\s*_DOC\s*(.*)/ or die "_DOC statements must have structure '_DOC ', like '_DOC This is my documentation'";
14            
15 5   100     54 bless {
16             _descr => $1 || '',
17             }, $pkg;
18             }
19              
20             1;
21             __END__