File Coverage

blib/lib/W3C/SOAP/Header/Security.pm
Criterion Covered Total %
statement 24 29 82.7
branch n/a
condition n/a
subroutine 8 9 88.8
pod 1 1 100.0
total 33 39 84.6


line stmt bran cond sub pod time code
1             package W3C::SOAP::Header::Security;
2              
3             # Created on: 2012-05-23 14:35:51
4             # Create by: dev
5             # $Id$
6             # $Revision$, $HeadURL$, $Date$
7             # $Revision$, $Source$, $Date$
8              
9 1     1   1327 use Moose;
  1         2  
  1         8  
10 1     1   3389 use warnings;
  1         2  
  1         23  
11 1     1   4 use version;
  1         2  
  1         7  
12 1     1   133 use Carp;
  1         2  
  1         63  
13 1     1   5 use Scalar::Util;
  1         1  
  1         32  
14 1     1   5 use List::Util;
  1         1  
  1         46  
15 1     1   5 use Data::Dumper qw/Dumper/;
  1         1  
  1         41  
16 1     1   5 use English qw/ -no_match_vars /;
  1         2  
  1         7  
17              
18              
19             our $VERSION = version->new('0.11');
20              
21             sub to_xml {
22 0     0 1   my ($self, $xml) = @_;
23              
24 0           my $sec = $xml->createElement('wsse:Security');
25 0           $sec->setAttribute('xmlns:wsse' => 'http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd');
26 0           $sec->setAttribute('soapenv:mustUnderstand' => 1);
27              
28             # Moose 2 syntax
29             #my $child = inner();
30             #$sec->appendChild($child) if $child;
31              
32 0           return $sec;
33             }
34              
35             1;
36              
37             __END__
38              
39             =head1 NAME
40              
41             W3C::SOAP::Header::Security - Creates a SOAP Header WS-Security object
42              
43             =head1 VERSION
44              
45             This documentation refers to W3C::SOAP::Header::Security version 0.11.
46              
47              
48             =head1 SYNOPSIS
49              
50             use W3C::SOAP::Header::Security;
51              
52             # Brief but working code example(s) here showing the most common usage(s)
53             # This section will be as far as many users bother reading, so make it as
54             # educational and exemplary as possible.
55              
56              
57             =head1 DESCRIPTION
58              
59              
60             =head1 SUBROUTINES/METHODS
61              
62             =over 4
63              
64             =item C<to_xml ($xml)>
65              
66             Coverts this object to XML
67              
68             =back
69              
70             =head1 DIAGNOSTICS
71              
72             =head1 CONFIGURATION AND ENVIRONMENT
73              
74             =head1 DEPENDENCIES
75              
76             =head1 INCOMPATIBILITIES
77              
78             =head1 BUGS AND LIMITATIONS
79              
80             There are no known bugs in this module.
81              
82             Please report problems to Ivan Wills - (ivan.wills@gmail.com)
83              
84             Patches are welcome.
85              
86             =head1 AUTHOR
87              
88             Ivan Wills - (ivan.wills@gmail.com)
89              
90             =head1 LICENSE AND COPYRIGHT
91              
92             Copyright (c) 2012 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
93             All rights reserved.
94              
95             This module is free software; you can redistribute it and/or modify it under
96             the same terms as Perl itself. See L<perlartistic>. This program is
97             distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
98             without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
99             PARTICULAR PURPOSE.
100              
101             =cut