File Coverage

lib/SOAP/WSDL/XSD/Typelib/Attribute.pm
Criterion Covered Total %
statement 15 15 100.0
branch 4 4 100.0
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 24 26 92.3


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