view release on metacpan or  search on metacpan

lib/Apache/XPointer.pm  view on Meta::CPAN

132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
        $choice =~ s/;.*//;
 
        if ($pkg->send_as($choice)) {
            $accept = $choice;
            last;
        }
    }
 
    if (! $accept) {
        $apache->log()->error("unable to send request as '$accept'");
        return $pkg->_not_acceptable();
    }
}
 
#
 
my $parsed = $pkg->parse_range($apache,$range);
 
if (! $parsed) {
    $apache->log()->error(sprintf("failed to parse range '%s'",
                                  $range));

lib/Apache/XPointer.pm  view on Meta::CPAN

300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
sub _declined {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::DECLINED() : Apache::Constants::DECLINED();
}
 
sub _server_error {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_INTERNAL_SERVER_ERROR() : Apache::Constants::SERVER_ERROR();
}
 
sub _not_found {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_NOT_FOUND() : Apache::Constants::NOT_FOUND();
}
 
sub _not_acceptable {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_NOT_ACCEPTABLE() : Apache::Constants::HTTP_NOT_ACCEPTABLE();
}
 
sub _partial_content {
    my $pkg = shift;
    return ($pkg->_mp2()) ? Apache::HTTP_PARTIAL_CONTENT() : 206;
}
 
sub _ok {