line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# |
2
|
|
|
|
|
|
|
|
3
|
|
|
|
|
|
|
=head1 NAME |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
Content - a content item. |
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
=head1 SYNOPSIS |
8
|
|
|
|
|
|
|
|
9
|
|
|
|
|
|
|
<{perl |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
$cont = get_content_object ("foo.txt"); |
12
|
|
|
|
|
|
|
[... etc.] |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
}> |
15
|
|
|
|
|
|
|
|
16
|
|
|
|
|
|
|
=head1 DESCRIPTION |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
This object allows manipulation of WebMake content items directly. |
19
|
|
|
|
|
|
|
|
20
|
|
|
|
|
|
|
=head1 METHODS |
21
|
|
|
|
|
|
|
|
22
|
|
|
|
|
|
|
=over 4 |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
=cut |
25
|
|
|
|
|
|
|
|
26
|
|
|
|
|
|
|
package HTML::WebMake::Content; |
27
|
|
|
|
|
|
|
|
28
|
|
|
|
|
|
|
|
29
|
1
|
|
|
1
|
|
5
|
use Carp; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
57
|
|
30
|
1
|
|
|
1
|
|
4
|
use strict; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
28
|
|
31
|
1
|
|
|
1
|
|
5
|
use locale; |
|
1
|
|
|
|
|
2
|
|
|
1
|
|
|
|
|
7
|
|
32
|
|
|
|
|
|
|
|
33
|
1
|
|
|
|
|
2433
|
use vars qw{ |
34
|
|
|
|
|
|
|
@ISA |
35
|
|
|
|
|
|
|
%SORT_SUBS |
36
|
1
|
|
|
1
|
|
29
|
}; |
|
1
|
|
|
|
|
1
|
|
37
|
|
|
|
|
|
|
|
38
|
|
|
|
|
|
|
@ISA = qw(); |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
|
41
|
|
|
|
|
|
|
%SORT_SUBS = (); |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
########################################################################### |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
sub new ($$$$$$$) { |
46
|
0
|
|
|
0
|
0
|
|
my $class = shift; |
47
|
0
|
|
0
|
|
|
|
$class = ref($class) || $class; |
48
|
|
|
|
|
|
|
|
49
|
0
|
|
|
|
|
|
my ($name, $file, $attrs, $text, $datasource, $ismetadata) = @_; |
50
|
0
|
|
|
|
|
|
my $attrval; |
51
|
|
|
|
|
|
|
|
52
|
0
|
|
|
|
|
|
my $self = { %$attrs }; # copy the attrs |
53
|
0
|
|
|
|
|
|
bless ($self, $class); |
54
|
|
|
|
|
|
|
|
55
|
0
|
|
|
|
|
|
$self->{name} = $name; |
56
|
0
|
|
|
|
|
|
$self->{main} = $file->{main}; |
57
|
|
|
|
|
|
|
|
58
|
0
|
0
|
|
|
|
|
if (defined $text) { |
59
|
0
|
|
|
|
|
|
$self->{text} = $text; |
60
|
|
|
|
|
|
|
} |
61
|
|
|
|
|
|
|
|
62
|
0
|
|
|
|
|
|
my $metadata = $self->{main}->{metadata}; |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
# check this content item's format. text/html is the default, so |
65
|
|
|
|
|
|
|
# if it's set to that, delete it to save space; otherwise, convert |
66
|
|
|
|
|
|
|
# it to a compressed representation to save space. |
67
|
0
|
|
|
|
|
|
$attrval = $attrs->{'format'}; |
68
|
0
|
|
0
|
|
|
|
$attrval ||= $metadata->get_attrdefault ('format'); |
69
|
0
|
0
|
|
|
|
|
if (defined $attrval) { |
70
|
0
|
0
|
|
|
|
|
if ($attrval eq 'text/html') { |
71
|
0
|
|
|
|
|
|
delete $self->{format}; |
72
|
|
|
|
|
|
|
} else { |
73
|
0
|
|
|
|
|
|
$self->{format} = |
74
|
|
|
|
|
|
|
HTML::WebMake::FormatConvert::format_name_to_zname($attrval); |
75
|
|
|
|
|
|
|
} |
76
|
|
|
|
|
|
|
} |
77
|
|
|
|
|
|
|
|
78
|
0
|
|
|
|
|
|
$self->{location} = \$file->{filename}; |
79
|
0
|
|
|
|
|
|
$self->{deps} = $self->mk_deps ($file->get_deps()); |
80
|
|
|
|
|
|
|
|
81
|
|
|
|
|
|
|
# sitemap support. |
82
|
0
|
|
|
|
|
|
$attrval = $attrs->{'up'}; |
83
|
0
|
|
0
|
|
|
|
$attrval ||= $metadata->get_attrdefault ('up'); |
84
|
0
|
0
|
|
|
|
|
if (defined $attrval) { |
85
|
0
|
|
|
|
|
|
$self->{up_name} = $attrval; |
86
|
0
|
|
|
|
|
|
delete $self->{'up'}; # in case it was set as an attr |
87
|
|
|
|
|
|
|
} |
88
|
|
|
|
|
|
|
|
89
|
0
|
|
|
|
|
|
$self; |
90
|
|
|
|
|
|
|
} |
91
|
|
|
|
|
|
|
|
92
|
0
|
|
|
0
|
0
|
|
sub dbg { HTML::WebMake::Main::dbg (@_); } |
93
|
0
|
|
|
0
|
0
|
|
sub vrb { HTML::WebMake::Main::vrb (@_); } |
94
|
|
|
|
|
|
|
|
95
|
|
|
|
|
|
|
# ------------------------------------------------------------------------- |
96
|
|
|
|
|
|
|
|
97
|
|
|
|
|
|
|
=item $text = $cont->get_name(); |
98
|
|
|
|
|
|
|
|
99
|
|
|
|
|
|
|
Return the content item's name. |
100
|
|
|
|
|
|
|
|
101
|
|
|
|
|
|
|
=cut |
102
|
|
|
|
|
|
|
|
103
|
|
|
|
|
|
|
sub get_name { |
104
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
105
|
0
|
|
|
|
|
|
$self->{name}; |
106
|
|
|
|
|
|
|
} |
107
|
|
|
|
|
|
|
|
108
|
|
|
|
|
|
|
=item $text = $cont->as_string(); |
109
|
|
|
|
|
|
|
|
110
|
|
|
|
|
|
|
A textual description of the object for debugging purposes; currently it's |
111
|
|
|
|
|
|
|
name. |
112
|
|
|
|
|
|
|
|
113
|
|
|
|
|
|
|
=cut |
114
|
|
|
|
|
|
|
|
115
|
|
|
|
|
|
|
sub as_string { |
116
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
117
|
0
|
|
|
|
|
|
croak "undefined by subclass"; |
118
|
|
|
|
|
|
|
} |
119
|
|
|
|
|
|
|
|
120
|
|
|
|
|
|
|
# ------------------------------------------------------------------------- |
121
|
|
|
|
|
|
|
|
122
|
|
|
|
|
|
|
=item $fname = $cont->get_filename(); |
123
|
|
|
|
|
|
|
|
124
|
|
|
|
|
|
|
Get the filename or datasource location that this content was loaded from. |
125
|
|
|
|
|
|
|
Datasource locations look like this: |
126
|
|
|
|
|
|
|
C:C, e.g. C or |
127
|
|
|
|
|
|
|
C. |
128
|
|
|
|
|
|
|
|
129
|
|
|
|
|
|
|
=cut |
130
|
|
|
|
|
|
|
|
131
|
|
|
|
|
|
|
sub get_filename { |
132
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
133
|
0
|
|
|
|
|
|
return ${$self->{location}}; |
|
0
|
|
|
|
|
|
|
134
|
|
|
|
|
|
|
} |
135
|
|
|
|
|
|
|
|
136
|
|
|
|
|
|
|
=item @filenames = $cont->get_deps(); |
137
|
|
|
|
|
|
|
|
138
|
|
|
|
|
|
|
Return an array of filenames and locations that this content depends on, i.e. |
139
|
|
|
|
|
|
|
the filenames or locations that it contains variable references to. |
140
|
|
|
|
|
|
|
|
141
|
|
|
|
|
|
|
=cut |
142
|
|
|
|
|
|
|
|
143
|
|
|
|
|
|
|
sub get_deps { |
144
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
145
|
|
|
|
|
|
|
|
146
|
|
|
|
|
|
|
map { |
147
|
0
|
0
|
|
|
|
|
if ($_ eq "\001") { $self->{location}; } |
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
|
148
|
0
|
|
|
|
|
|
else { $_; } |
149
|
|
|
|
|
|
|
} split (/\0/, $self->{deps}); |
150
|
|
|
|
|
|
|
} |
151
|
|
|
|
|
|
|
|
152
|
|
|
|
|
|
|
sub mk_deps { |
153
|
0
|
|
|
0
|
0
|
|
my ($self, $deps) = @_; |
154
|
0
|
|
|
|
|
|
my @compressed = (); |
155
|
|
|
|
|
|
|
|
156
|
0
|
|
|
|
|
|
foreach my $dep (@{$deps}) { |
|
0
|
|
|
|
|
|
|
157
|
0
|
0
|
|
|
|
|
if ($dep eq $HTML::WebMake::Main::SUBST_DEP_IGNORE) { next; } |
|
0
|
0
|
|
|
|
|
|
|
|
0
|
|
|
|
|
|
158
|
0
|
|
|
|
|
|
elsif ($dep eq $HTML::WebMake::Main::SUBST_META) { next; } |
159
|
0
|
|
|
|
|
|
elsif ($dep eq $self->{location}) { push (@compressed, "\001"); next; } |
|
0
|
|
|
|
|
|
|
160
|
0
|
|
|
|
|
|
push (@compressed, $dep); |
161
|
|
|
|
|
|
|
} |
162
|
|
|
|
|
|
|
|
163
|
0
|
|
|
|
|
|
join ("\0", @compressed); |
164
|
|
|
|
|
|
|
} |
165
|
|
|
|
|
|
|
|
166
|
|
|
|
|
|
|
=item $flag = $cont->is_generated_content(); |
167
|
|
|
|
|
|
|
|
168
|
|
|
|
|
|
|
Whether or not a content item was generated from Perl code, or is metadata. |
169
|
|
|
|
|
|
|
Generated content items cannot themselves hold metadata. |
170
|
|
|
|
|
|
|
|
171
|
|
|
|
|
|
|
=cut |
172
|
|
|
|
|
|
|
|
173
|
|
|
|
|
|
|
sub is_generated_content { |
174
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
175
|
0
|
|
|
|
|
|
croak "undefined by subclass"; |
176
|
|
|
|
|
|
|
} |
177
|
|
|
|
|
|
|
|
178
|
|
|
|
|
|
|
# ------------------------------------------------------------------------- |
179
|
|
|
|
|
|
|
|
180
|
|
|
|
|
|
|
=item $val = $cont->expand() |
181
|
|
|
|
|
|
|
|
182
|
|
|
|
|
|
|
Expand a content item, as if in a curly-bracket content reference. If the |
183
|
|
|
|
|
|
|
content item has not been expanded before, the current output file will be |
184
|
|
|
|
|
|
|
noted as the content item's ''main'' URL. |
185
|
|
|
|
|
|
|
|
186
|
|
|
|
|
|
|
=cut |
187
|
|
|
|
|
|
|
|
188
|
|
|
|
|
|
|
sub expand { |
189
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
190
|
0
|
|
|
|
|
|
croak "undefined by subclass"; |
191
|
|
|
|
|
|
|
} |
192
|
|
|
|
|
|
|
|
193
|
|
|
|
|
|
|
=item $val = $cont->expand_no_ref() |
194
|
|
|
|
|
|
|
|
195
|
|
|
|
|
|
|
Expand a content item, as if in a curly-bracket content reference. The current |
196
|
|
|
|
|
|
|
output file will not be used as the content item's ''main'' URL. |
197
|
|
|
|
|
|
|
|
198
|
|
|
|
|
|
|
=cut |
199
|
|
|
|
|
|
|
|
200
|
|
|
|
|
|
|
sub expand_no_ref { |
201
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
202
|
0
|
|
|
|
|
|
croak "undefined by subclass"; |
203
|
|
|
|
|
|
|
} |
204
|
|
|
|
|
|
|
|
205
|
|
|
|
|
|
|
# ------------------------------------------------------------------------- |
206
|
|
|
|
|
|
|
|
207
|
|
|
|
|
|
|
=item $val = $cont->get_metadata($metaname); |
208
|
|
|
|
|
|
|
|
209
|
|
|
|
|
|
|
Get an item of this object's metadata, e.g. |
210
|
|
|
|
|
|
|
|
211
|
|
|
|
|
|
|
$score = $cont->get_metadata("score"); |
212
|
|
|
|
|
|
|
|
213
|
|
|
|
|
|
|
The metadatum is converted to its native type, e.g. C is return as an |
214
|
|
|
|
|
|
|
integer, C as a string, etc. If the metadatum is not provided, the </td>
</tr>
<tr>
<td class="h" >
<a name="215">215</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> default value for that item, defined in HTML::WebMake::Metadata, is used. </td>
</tr>
<tr>
<td class="h" >
<a name="216">216</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="217">217</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="218">218</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="219">219</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_metadata { </td>
</tr>
<tr>
<td class="h" >
<a name="220">220</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#220-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#220-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $key) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="221">221</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="222">222</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="223">223</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="224">224</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="225">225</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="226">226</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub create_extra_metas_if_needed { </td>
</tr>
<tr>
<td class="h" >
<a name="227">227</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#227-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#227-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="228">228</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="229">229</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="230">230</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="231">231</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="232">232</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="233">233</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub load_metadata { </td>
</tr>
<tr>
<td class="h" >
<a name="234">234</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#234-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#234-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="235">235</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="236">236</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="237">237</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="238">238</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="239">239</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="240">240</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item $score = $cont->get_score(); </td>
</tr>
<tr>
<td class="h" >
<a name="241">241</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="242">242</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Return a content item's score. </td>
</tr>
<tr>
<td class="h" >
<a name="243">243</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="244">244</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="245">245</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="246">246</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_score { </td>
</tr>
<tr>
<td class="h" >
<a name="247">247</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#247-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#247-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="248">248</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="249">249</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="250">250</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="251">251</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item $title = $cont->get_title(); </td>
</tr>
<tr>
<td class="h" >
<a name="252">252</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="253">253</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Return a content item's title. </td>
</tr>
<tr>
<td class="h" >
<a name="254">254</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="255">255</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="256">256</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="257">257</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_title { </td>
</tr>
<tr>
<td class="h" >
<a name="258">258</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#258-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#258-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="259">259</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="260">260</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="261">261</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="262">262</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="263">263</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="264">264</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item $modtime = $cont->get_modtime(); </td>
</tr>
<tr>
<td class="h" >
<a name="265">265</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="266">266</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Return a content item's modification date, in UNIX time_t format, </td>
</tr>
<tr>
<td class="h" >
<a name="267">267</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> ie. seconds since Jan 1 1970. </td>
</tr>
<tr>
<td class="h" >
<a name="268">268</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="269">269</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="270">270</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="271">271</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_modtime { </td>
</tr>
<tr>
<td class="h" >
<a name="272">272</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#272-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#272-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="273">273</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="274">274</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="275">275</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="276">276</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="277">277</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="278">278</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub set_declared { </td>
</tr>
<tr>
<td class="h" >
<a name="279">279</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#279-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#279-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $order) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="280">280</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{decl_order} = $order; </td>
</tr>
<tr>
<td class="h" >
<a name="281">281</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="282">282</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="283">283</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item $order = $cont->get_declared(); </td>
</tr>
<tr>
<td class="h" >
<a name="284">284</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="285">285</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Returns the content item's declaration order. This is a number representing </td>
</tr>
<tr>
<td class="h" >
<a name="286">286</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> when the content item was first encountered in the WebMake file; earlier </td>
</tr>
<tr>
<td class="h" >
<a name="287">287</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> content items have a lower declaration order. Useful for sorting. </td>
</tr>
<tr>
<td class="h" >
<a name="288">288</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="289">289</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="290">290</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="291">291</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_declared { </td>
</tr>
<tr>
<td class="h" >
<a name="292">292</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#292-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#292-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="293">293</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self->{decl_order}; </td>
</tr>
<tr>
<td class="h" >
<a name="294">294</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="295">295</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="296">296</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="297">297</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="298">298</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_magic_metadata { </td>
</tr>
<tr>
<td class="h" >
<a name="299">299</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#299-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#299-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $from, $key) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="300">300</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $val; </td>
</tr>
<tr>
<td class="h" >
<a name="301">301</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="302">302</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#302-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($key eq 'name') { </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#-2">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#-3">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#-4">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#-5">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="303">303</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self->get_name(); </td>
</tr>
<tr>
<td class="h" >
<a name="304">304</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="305">305</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="306">306</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> elsif ($key eq 'url') { </td>
</tr>
<tr>
<td class="h" >
<a name="307">307</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#307-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return "" if ($self->is_generated_content()); </td>
</tr>
<tr>
<td class="h" >
<a name="308">308</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $val = $self->get_url(); </td>
</tr>
<tr>
<td class="h" >
<a name="309">309</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#309-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $val) { </td>
</tr>
<tr>
<td class="h" >
<a name="310">310</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> vrb ("no URL defined for content \${".$self->{name}. </td>
</tr>
<tr>
<td class="h" >
<a name="311">311</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> ".$key} in \"$from\"."); </td>
</tr>
<tr>
<td class="h" >
<a name="312">312</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return ""; </td>
</tr>
<tr>
<td class="h" >
<a name="313">313</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="314">314</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $val; </td>
</tr>
<tr>
<td class="h" >
<a name="315">315</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="316">316</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="317">317</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> elsif ($key eq 'mtime') { </td>
</tr>
<tr>
<td class="h" >
<a name="318">318</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self->get_modtime(); </td>
</tr>
<tr>
<td class="h" >
<a name="319">319</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="320">320</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="321">321</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> elsif ($key eq 'declared') { </td>
</tr>
<tr>
<td class="h" >
<a name="322">322</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self->get_declared(); </td>
</tr>
<tr>
<td class="h" >
<a name="323">323</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="324">324</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="325">325</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> elsif ($key eq 'is_generated') { </td>
</tr>
<tr>
<td class="h" >
<a name="326">326</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#326-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return ($self->is_generated_content()) ? '1' : '0'; </td>
</tr>
<tr>
<td class="h" >
<a name="327">327</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="328">328</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="329">329</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return undef; </td>
</tr>
<tr>
<td class="h" >
<a name="330">330</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="331">331</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="332">332</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="333">333</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="334">334</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub add_kid { </td>
</tr>
<tr>
<td class="h" >
<a name="335">335</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#335-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#335-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $kid) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="336">336</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="337">337</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#337-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return if ($kid eq $self); </td>
</tr>
<tr>
<td class="h" >
<a name="338">338</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="339">339</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#339-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $self->{kids}) { </td>
</tr>
<tr>
<td class="h" >
<a name="340">340</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{kids} = [ ]; </td>
</tr>
<tr>
<td class="h" >
<a name="341">341</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="342">342</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="343">343</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> push (@{$self->{kids}}, $kid); </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="344">344</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="345">345</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="346">346</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub has_any_kids { </td>
</tr>
<tr>
<td class="h" >
<a name="347">347</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#347-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#347-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="348">348</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#348-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $self->{kids}) { return 0; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="349">349</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#349-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($#{$self->{kids}} >= 0) { return 1; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="350">350</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return 0; </td>
</tr>
<tr>
<td class="h" >
<a name="351">351</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="352">352</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="353">353</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item @kidobjs = $cont->get_kids ($sortstring); </td>
</tr>
<tr>
<td class="h" >
<a name="354">354</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="355">355</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Get the child content items for this item. The ''child'' content items </td>
</tr>
<tr>
<td class="h" >
<a name="356">356</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> are items that use this content as their C<up> metadatum. </td>
</tr>
<tr>
<td class="h" >
<a name="357">357</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="358">358</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Returns a list of content objects in unsorted order. </td>
</tr>
<tr>
<td class="h" >
<a name="359">359</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="360">360</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="361">361</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="362">362</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_kids { </td>
</tr>
<tr>
<td class="h" >
<a name="363">363</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#363-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#363-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="364">364</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#364-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $self->{kids}) { return (); } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="365">365</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> @{$self->{kids}}; </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="366">366</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="367">367</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="368">368</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item @kidobjs = $cont->get_sorted_kids ($sortstring); </td>
</tr>
<tr>
<td class="h" >
<a name="369">369</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="370">370</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Get the child content items for this item. The ''child'' content items </td>
</tr>
<tr>
<td class="h" >
<a name="371">371</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> are items that use this content as their C<up> metadatum. </td>
</tr>
<tr>
<td class="h" >
<a name="372">372</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="373">373</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Returns a list of content objects sorted by the provided sort string. </td>
</tr>
<tr>
<td class="h" >
<a name="374">374</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="375">375</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="376">376</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="377">377</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_sorted_kids { </td>
</tr>
<tr>
<td class="h" >
<a name="378">378</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#378-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#378-1">
1
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $sortby) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="379">379</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="380">380</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $sortsub; </td>
</tr>
<tr>
<td class="h" >
<a name="381">381</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#381-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $sortby) { </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#-2">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="382">382</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $sortsub = $self->get_sort_sub($sortby); </td>
</tr>
<tr>
<td class="h" >
<a name="383">383</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } elsif (defined $self->{kid_sort_str}) { </td>
</tr>
<tr>
<td class="h" >
<a name="384">384</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $sortsub = $self->get_sort_sub($self->{kid_sort_str}); </td>
</tr>
<tr>
<td class="h" >
<a name="385">385</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else { </td>
</tr>
<tr>
<td class="h" >
<a name="386">386</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $sortsub = $self->get_sort_sub('score title declared'); </td>
</tr>
<tr>
<td class="h" >
<a name="387">387</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="388">388</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sort $sortsub ($self->get_kids()); </td>
</tr>
<tr>
<td class="h" >
<a name="389">389</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="390">390</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="391">391</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub set_sort_string { </td>
</tr>
<tr>
<td class="h" >
<a name="392">392</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#392-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#392-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $str) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="393">393</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{kid_sort_str} = $str; </td>
</tr>
<tr>
<td class="h" >
<a name="394">394</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="395">395</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="396">396</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="397">397</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="398">398</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # get and eval() a sort subroutine for the given sorting criteria. </td>
</tr>
<tr>
<td class="h" >
<a name="399">399</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # stores cached sort sub { } refs in the %SORT_SUBS global array to </td>
</tr>
<tr>
<td class="h" >
<a name="400">400</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # avoid re-evaluating the same piece of perl code repeatedly. </td>
</tr>
<tr>
<td class="h" >
<a name="401">401</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # </td>
</tr>
<tr>
<td class="h" >
<a name="402">402</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_sort_sub { </td>
</tr>
<tr>
<td class="h" >
<a name="403">403</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#403-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#403-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $sortstr) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="404">404</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="405">405</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#405-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $SORT_SUBS{$sortstr}) { </td>
</tr>
<tr>
<td class="h" >
<a name="406">406</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $sortsubstr = $self->{main}->{metadata}->string_to_sort_sub ($sortstr); </td>
</tr>
<tr>
<td class="h" >
<a name="407">407</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $sortsub = eval $sortsubstr; </td>
</tr>
<tr>
<td class="h" >
<a name="408">408</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $SORT_SUBS{$sortstr} = $sortsub; </td>
</tr>
<tr>
<td class="h" >
<a name="409">409</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="410">410</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="411">411</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $SORT_SUBS{$sortstr}; </td>
</tr>
<tr>
<td class="h" >
<a name="412">412</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="413">413</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="414">414</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="415">415</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="416">416</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_format { </td>
</tr>
<tr>
<td class="h" >
<a name="417">417</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#417-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#417-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="418">418</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#418-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $self->{format}) { return 'text/html'; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="419">419</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return HTML::WebMake::FormatConvert::format_zname_to_name($self->{format}); </td>
</tr>
<tr>
<td class="h" >
<a name="420">420</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="421">421</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="422">422</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="423">423</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="424">424</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_text_as { </td>
</tr>
<tr>
<td class="h" >
<a name="425">425</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#425-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#425-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $format) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="426">426</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="427">427</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="428">428</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="429">429</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="430">430</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="431">431</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#431-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#431-1">
0
</a>
</td>
<td >
</td>
<td class="s"> sub unload_text { } </td>
</tr>
<tr>
<td class="h" >
<a name="432">432</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="433">433</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#433-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#433-1">
0
</a>
</td>
<td >
</td>
<td class="s"> sub is_from_datasource { 0; } </td>
</tr>
<tr>
<td class="h" >
<a name="434">434</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="435">435</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#435-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#435-1">
0
</a>
</td>
<td >
</td>
<td class="s"> sub touch_last_used { } </td>
</tr>
<tr>
<td class="h" >
<a name="436">436</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="437">437</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="438">438</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="439">439</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_up_content { </td>
</tr>
<tr>
<td class="h" >
<a name="440">440</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#440-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#440-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="441">441</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="442">442</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="443">443</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#443-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $self->{up_obj}) { return $self->{up_obj}; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="444">444</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="445">445</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # magic variables do not appear in the tree. </td>
</tr>
<tr>
<td class="h" >
<a name="446">446</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#446-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($self->{name} =~ /^WebMake\./) { return undef; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="447">447</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="448">448</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # see if we got an "up" attr passed in. </td>
</tr>
<tr>
<td class="h" >
<a name="449">449</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#449-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $self->{up_name}) { </td>
</tr>
<tr>
<td class="h" >
<a name="450">450</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $cont = $self->up_name_to_content ($self->{up_name}); </td>
</tr>
<tr>
<td class="h" >
<a name="451">451</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#451-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $cont) { return $cont; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="452">452</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # else, it's not valid; clear it. </td>
</tr>
<tr>
<td class="h" >
<a name="453">453</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> undef $self->{up_name}; </td>
</tr>
<tr>
<td class="h" >
<a name="454">454</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="455">455</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="456">456</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # see if we have an "up" metadatum. </td>
</tr>
<tr>
<td class="h" >
<a name="457">457</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#457-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!$self->is_generated_content()) { </td>
</tr>
<tr>
<td class="h" >
<a name="458">458</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $meta = $self->{main}->quiet_curly_meta_subst </td>
</tr>
<tr>
<td class="h" >
<a name="459">459</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> ($HTML::WebMake::Main::SUBST_META, $self->{name}.".up"); </td>
</tr>
<tr>
<td class="h" >
<a name="460">460</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#460-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--condition.html#460-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $meta && $meta ne '') { </td>
</tr>
<tr>
<td class="h" >
<a name="461">461</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $cont = $self->up_name_to_content ($meta); </td>
</tr>
<tr>
<td class="h" >
<a name="462">462</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#462-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $cont) { </td>
</tr>
<tr>
<td class="h" >
<a name="463">463</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="464">464</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="465">465</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="466">466</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="467">467</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="468">468</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ach, no "up" item. Use the root content. </td>
</tr>
<tr>
<td class="h" >
<a name="469">469</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $self->up_name_to_content ($HTML::WebMake::SiteMap::ROOTNAME); </td>
</tr>
<tr>
<td class="h" >
<a name="470">470</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="471">471</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="472">472</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub up_name_to_content { </td>
</tr>
<tr>
<td class="h" >
<a name="473">473</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#473-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#473-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $name) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="474">474</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="475">475</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> my $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="476">476</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#476-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if ($name eq $HTML::WebMake::SiteMap::ROOTNAME) { </td>
</tr>
<tr>
<td class="h" >
<a name="477">477</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $cont = $self->{main}->getmapper()->get_root(); </td>
</tr>
<tr>
<td class="h" >
<a name="478">478</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#478-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (!defined $cont) { return undef; } </td>
</tr>
<tr>
<td class="h" >
<a > </a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="479">479</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } else { </td>
</tr>
<tr>
<td class="h" >
<a name="480">480</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $cont = $self->{main}->get_content_obj($name); </td>
</tr>
<tr>
<td class="h" >
<a name="481">481</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="482">482</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="483">483</a>
</td>
<td class="c0" >
0
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--branch.html#483-1">
0
</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> if (defined $cont) { </td>
</tr>
<tr>
<td class="h" >
<a name="484">484</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{up_name} = $name; </td>
</tr>
<tr>
<td class="h" >
<a name="485">485</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{up_obj} = $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="486">486</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="487">487</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="488">488</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="489">489</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> warn $self->as_string().": \"up\" content not found: \$\{". </td>
</tr>
<tr>
<td class="h" >
<a name="490">490</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $name."\}\n"; </td>
</tr>
<tr>
<td class="h" >
<a name="491">491</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> return undef; </td>
</tr>
<tr>
<td class="h" >
<a name="492">492</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="493">493</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="494">494</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="495">495</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="496">496</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub add_ref_from_url { </td>
</tr>
<tr>
<td class="h" >
<a name="497">497</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#497-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#497-1">
0
</a>
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="498">498</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="499">499</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="500">500</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="501">501</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="502">502</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =item $text = $cont->get_url(); </td>
</tr>
<tr>
<td class="h" >
<a name="503">503</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="504">504</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Get a content item's URL. The URL is defined as the first page listed in the </td>
</tr>
<tr>
<td class="h" >
<a name="505">505</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> WebMake file's out tags which refers to that item of content. </td>
</tr>
<tr>
<td class="h" >
<a name="506">506</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="507">507</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> Note that, in some cases, the content item may not have been referred to yet by </td>
</tr>
<tr>
<td class="h" >
<a name="508">508</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> the time it's get_url() method is called. In this case, WebMake will insert a </td>
</tr>
<tr>
<td class="h" >
<a name="509">509</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> symbolic tag, hold the file in memory, and defer writing the file in question </td>
</tr>
<tr>
<td class="h" >
<a name="510">510</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> until all other output files have been processed and the URL has been found. </td>
</tr>
<tr>
<td class="h" >
<a name="511">511</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="512">512</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> =cut </td>
</tr>
<tr>
<td class="h" >
<a name="513">513</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="514">514</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub get_url { </td>
</tr>
<tr>
<td class="h" >
<a name="515">515</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#515-1">
0
</a>
</td>
<td class="c3" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#515-1">
1
</a>
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="516">516</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="517">517</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="518">518</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="519">519</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="520">520</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub set_next { </td>
</tr>
<tr>
<td class="h" >
<a name="521">521</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#521-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#521-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $cont) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="522">522</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{next_content} = $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="523">523</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="524">524</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="525">525</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub set_prev { </td>
</tr>
<tr>
<td class="h" >
<a name="526">526</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#526-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#526-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $cont) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="527">527</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{prev_content} = $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="528">528</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="529">529</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="530">530</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub set_up { </td>
</tr>
<tr>
<td class="h" >
<a name="531">531</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#531-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#531-1">
0
</a>
</td>
<td >
</td>
<td class="s"> my ($self, $cont) = @_; </td>
</tr>
<tr>
<td class="h" >
<a name="532">532</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> $self->{up_content} = $cont; </td>
</tr>
<tr>
<td class="h" >
<a name="533">533</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="534">534</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="535">535</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#535-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#535-1">
0
</a>
</td>
<td >
</td>
<td class="s"> sub invalidate_cached_nav_metadata { } </td>
</tr>
<tr>
<td class="h" >
<a name="536">536</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="537">537</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="538">538</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="539">539</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> sub is_only_usable_from_deferred_refs { </td>
</tr>
<tr>
<td class="h" >
<a name="540">540</a>
</td>
<td class="c0" >
0
</td>
<td >
</td>
<td >
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#540-1">
0
</a>
</td>
<td class="c0" >
<a href="blib-lib-HTML-WebMake-Content-pm--subroutine.html#540-1">
0
</a>
</td>
<td >
</td>
<td class="s"> croak "undefined by subclass"; </td>
</tr>
<tr>
<td class="h" >
<a name="541">541</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> } </td>
</tr>
<tr>
<td class="h" >
<a name="542">542</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="543">543</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> # ------------------------------------------------------------------------- </td>
</tr>
<tr>
<td class="h" >
<a name="544">544</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> </td>
</tr>
<tr>
<td class="h" >
<a name="545">545</a>
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td >
</td>
<td class="s"> 1; </td>
</tr>
</table>
</body>
</html>
|