File Coverage

blib/lib/W3C/SOAP/XSD/Document/Type.pm
Criterion Covered Total %
statement 24 30 80.0
branch 0 2 0.0
condition n/a
subroutine 8 9 88.8
pod n/a
total 32 41 78.0


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