ROBINS / XML-Rabbit-0.0.2-TRIAL / lib / XML / Rabbit / Role / Node.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
—
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128

              
use strict;
use warnings;
package XML::Rabbit::Role::Node;
BEGIN {
  $XML::Rabbit::Role::Node::VERSION = '0.0.2';
}
use MooseX::Role::Parameterized;
use Encode ();
# ABSTRACT: Base role for all nodes
parameter 'node'          => ( isa => 'HashRef', default => sub { +{} } );
parameter 'xpc'           => ( isa => 'HashRef', default => sub { +{} } );
parameter 'namespace_map' => ( isa => 'HashRef', default => sub { +{} } );
role {
    my ($p) = @_;
    has '_xpc' => (
        is       => 'ro',
        isa      => 'XML::LibXML::XPathContext',
        reader   => 'xpc',
        init_arg => 'xpc',
        %{ $p->xpc }
    );
    has '_node' => (
        is       => 'ro',
        isa      => 'XML::LibXML::Node',
        reader   => 'node',
        init_arg => 'node',
        %{ $p->node }
    );
    has 'namespace_map' => (
        is       => 'ro',
        isa      => 'HashRef[Str]',
        lazy     => 1,
        default  => sub { +{} },
        %{ $p->namespace_map },
    );
};
sub dump_xml {
    my ($self) = @_;
    return Encode::decode(
        $self->node->ownerDocument->actualEncoding,
        $self->node->toString(1),
    );
}
no MooseX::Role::Parameterized;
1;
__END__
=pod
=encoding utf-8
=head1 NAME
XML::Rabbit::Role::Node - Base role for all nodes
=head1 VERSION
version 0.0.2
=head1 SYNOPSIS
See L<XML::Rabbit::RootNode> or L<XML::Rabbit::Node> for examples.
=head1 DESCRIPTION
This module provides attributes and methods common to all nodes.
See L<XML::Rabbit> for a more complete example.
=head1 ATTRIBUTES
=head2 node
An instance of a L<XML::LibXML::Node> class representing the a node in an XML document. Read Only.
=head2 xpc
An instance of a L<XML::LibXML::XPathContext> class initialized with the C<node> attribute. Read Only.
=head2 namespace_map
A HashRef of strings that defines the prefix/namespace XML mappings for the
XPath parser. Usually overriden in a subclass like this:
    has '+namespace_map' => (
        default => sub { {
            myprefix      => "http://my.example.com",
            myotherprefix => "http://other.example2.org",
        } },
    );
=head1 METHODS
=head2 dump_xml
Dumps the XML of the current node as a native perl string.
=head1 AUTHOR
  Robin Smidsrød <robin@smidsrod.no>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2010 by Robin Smidsrød.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut