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   7818 use strict;
  6         15  
  6         204  
3 6     6   31 use warnings;
  6         11  
  6         181  
4              
5 6     6   30 use base qw(SOAP::WSDL::XSD::Typelib::Element);
  6         7  
  6         2260  
6              
7             our $VERSION = $SOAP::WSDL::VERSION;
8              
9             sub start_tag {
10             # my ($self, $opt, $value) = @_;
11 7 100   7 0 912 return q{} if (@_ < 3);
12 6         21 my $ns = $_[0]->get_xmlns();
13 6 100       19 if ($ns eq 'http://www.w3.org/XML/1998/namespace') {
14 1         8 return qq{ xml:$_[1]->{ name }="};
15             }
16 5         25 return qq{ $_[1]->{ name }="};
17             }
18              
19             sub end_tag {
20 5     5 0 38 return q{"};
21             }
22              
23             1;