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
|
=head1 NAME
RDF::RDFa::Generator::HTML::Pretty::Note - a note about something
=cut
package RDF::RDFa::Generator::HTML::Pretty::Note;
use 5.008;
use strict;
use constant XHTML_NS => 'http://www.w3.org/1999/xhtml';
use XML::LibXML qw':all';
use Carp;
use warnings;
our $VERSION = '0.201_01';
=head1 DESCRIPTION
Often you'll want to create your own subclass of this as the basic notes are pretty
limited (plain text only).
=head2 Constructor
=over 4
=item C<< $note = RDF::RDFa::Generator::HTML::Pretty::Note->new($subject, $text) >>
$subject is an RDF::Trine::Node (though probably not a Literal!) indicating the
subject of the note. $text is the plain text content of the note.
=back
=cut
sub new
{
my ($class, $subject, $text) = @_;
return bless {
'subject' => $subject,
'text' => $text,
}, $class;
}
=head2 Public Methods
=over 4
=item C<< $note->is_relevant_to($node) >>
$node is an L<RDF::Trine::Node> or L<Attean> IRI or blank. Checks if the subject of $note is $node.
Alias: is_relevent_to.
=cut
sub is_relevant_to
{
my ($self, $something) = @_;
return $self->{'subject'}->equals($something);
}
*is_relevent_to = \&is_relevant_to;
=item C<< $note->node($namespace, $tagname) >>
Gets an XML::LibXML::Element representing the note. $namespace and $tagname
are used to create the new element. If an unexpected namespace or tagname is
supplied, may die.
Expected namespace is 'http://www.w3.org/1999/xhtml'. Expected tagname is any XHTML
tag that can contain text nodes.
=back
=cut
sub node
{
my ($self, $namespace, $element) = @_;
croak "unknown namespace" unless $namespace eq XHTML_NS;
my $node = XML::LibXML::Element->new($element);
$node->setNamespace($namespace, undef, 1);
$node->appendTextNode($self->{'text'});
return $node;
}
1;
__END__
=head1 SEE ALSO
L<RDF::RDFa::Generator>,
L<RDF::RDFa::Linter>.
=head1 AUTHOR
Toby Inkster E<lt>tobyink@cpan.orgE<gt>.
=head1 COPYRIGHT AND LICENCE
Copyright (C) 2010 by Toby Inkster
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8 or,
at your option, any later version of Perl 5 you may have available.
=cut
|
