File Coverage

blib/lib/W3C/SOAP/WSDL/Document/Policy.pm
Criterion Covered Total %
statement 24 30 80.0
branch n/a
condition n/a
subroutine 8 10 80.0
pod n/a
total 32 40 80.0


line stmt bran cond sub pod time code
1             package W3C::SOAP::WSDL::Document::Policy;
2              
3             # Created on: 2012-07-18 11:11:32
4             # Create by: Ivan Wills
5             # $Id$
6             # $Revision$, $HeadURL$, $Date$
7             # $Revision$, $Source$, $Date$
8              
9 1     1   1667 use Moose;
  1         2  
  1         7  
10 1     1   4906 use warnings;
  1         3  
  1         23  
11 1     1   4 use version;
  1         2  
  1         5  
12 1     1   51 use Carp;
  1         2  
  1         62  
13 1     1   6 use Scalar::Util;
  1         2  
  1         27  
14 1     1   4 use List::Util;
  1         1  
  1         47  
15             #use List::MoreUtils;
16 1     1   5 use Data::Dumper qw/Dumper/;
  1         1  
  1         41  
17 1     1   5 use English qw/ -no_match_vars /;
  1         2  
  1         5  
18              
19             extends 'W3C::SOAP::Document::Node';
20              
21             our $VERSION = version->new('0.11');
22              
23             has sec_id => (
24             is => 'rw',
25             isa => 'Str',
26             builder => '_sec_id',
27             );
28             has policy_type => (
29             is => 'rw',
30             isa => 'Str',
31             builder => '_policy_type',
32             );
33              
34             sub _sec_id {
35 0     0     my ($self) = @_;
36 0           my @attributes = $self->node->getAttributes();
37              
38 0           return;
39             }
40              
41             sub _policy_type {
42 0     0     my ($self) = @_;
43 0           my @nodes = $self->document->xpc->findnodes('wsdl:operation', $self->node);
44              
45 0           return;
46             }
47              
48             1;
49              
50             __END__
51              
52             =head1 NAME
53              
54             W3C::SOAP::WSDL::Document::Policy - Extracted policy information
55              
56             =head1 VERSION
57              
58             This documentation refers to W3C::SOAP::WSDL::Document::Policy version 0.11.
59              
60              
61             =head1 SYNOPSIS
62              
63             use W3C::SOAP::WSDL::Document::Policy;
64              
65             # Brief but working code example(s) here showing the most common usage(s)
66             # This section will be as far as many users bother reading, so make it as
67             # educational and exemplary as possible.
68              
69              
70             =head1 DESCRIPTION
71              
72             =head1 SUBROUTINES/METHODS
73              
74             =head1 DIAGNOSTICS
75              
76             =head1 CONFIGURATION AND ENVIRONMENT
77              
78             =head1 DEPENDENCIES
79              
80             =head1 INCOMPATIBILITIES
81              
82             =head1 BUGS AND LIMITATIONS
83              
84             There are no known bugs in this module.
85              
86             Please report problems to Ivan Wills (ivan.wills@gmail.com).
87              
88             Patches are welcome.
89              
90             =head1 AUTHOR
91              
92             Ivan Wills - (ivan.wills@gmail.com)
93              
94             =head1 LICENSE AND COPYRIGHT
95              
96             Copyright (c) 2012 Ivan Wills (14 Mullion Close, Hornsby Heights, NSW Australia 2077).
97             All rights reserved.
98              
99             This module is free software; you can redistribute it and/or modify it under
100             the same terms as Perl itself. See L<perlartistic>. This program is
101             distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
102             without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
103             PARTICULAR PURPOSE.
104              
105             =cut