File Coverage

blib/lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
Criterion Covered Total %
statement 18 18 100.0
branch 4 4 100.0
condition n/a
subroutine 6 6 100.0
pod 0 2 0.0
total 28 30 93.3


line stmt bran cond sub pod time code
1             package SOAP::WSDL::XSD::Typelib::Attribute;
2 1     1   23134 use strict;
  1         2  
  1         38  
3 1     1   6 use warnings;
  1         2  
  1         36  
4              
5 1     1   5 use base qw(SOAP::WSDL::XSD::Typelib::Element);
  1         2  
  1         4502  
6              
7 1     1   5 use version; our $VERSION = qv('3.001');
  1         3  
  1         5  
8              
9             sub start_tag {
10             # my ($self, $opt, $value) = @_;
11 3 100   3 0 835 return q{} if (@_ < 3);
12 2         8 my $ns = $_[0]->get_xmlns();
13 2 100       10 if ($ns eq 'http://www.w3.org/XML/1998/namespace') {
14 1         10 return qq{ xml:$_[1]->{ name }="};
15             }
16 1         5 return qq{ $_[1]->{ name }="};
17             }
18              
19             sub end_tag {
20 1     1 0 5 return q{"};
21             }
22              
23             1;