view release on metacpan or  search on metacpan

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

	  $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

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 {