Scroll to navigation

SVN::Web::X(3pm) User Contributed Perl Documentation SVN::Web::X(3pm)

NAME

SVN::Web::X - exceptions for SVN::Web

SYNOPSIS

  use SVN::Web::X;
  ...
  SVN::Web::X->throw(error => '(error message %1)',
                     vars => [$var_to_interpolate]);

DESCRIPTION

SVN::Web::X implements exceptions for SVN::Web. Derived from Exception::Class, It provides a simple mechanism for throwing exceptions, catching them, and ensuring that friendly, localised error messages are generated and sent to the user's browser.

USAGE IN SVN::Web ACTIONS

If an SVN::Web action that you are writing needs to stop processing and raise an error, throw an SVN::Web::X exception.

"throw()" takes a hash with two mandatory keys.

"error"
A string describing the error. This string should be short, and key to a longer internationalised message.

This string may contain placeholders; %1, %2, %3, and so on. These will be replaced by the values of the variables passed in the "vars" key.

By convention this string should be enclosed in parentheses, "(" and ")". This helps make them stand out in the interface, if localised versions of the error message have not yet been written.

"vars"
An array reference. The first entry in the array will replace the %1 placeholder in "error", the second entry will replace the %2 placeholder, and so on.

If there are no placeholders then pass a reference to an empty array.

EXAMPLES

A simple exception, with no placeholders.

In the action:

  sub run {
      ...
      if(! frob_repo()) {
          SVN::Web::X->throw(error => '(frob failed)',
                             vars  => []);
      }
      ...
  }

In the en.po file for the localised text.

  msgid "(frob failed)"
  msgstr "There was a problem trying to frob the repository.  This "
  "probably indicates a permissions problem."

An exception with placeholders

In the action:

  sub run {
      ...
      # $path is a repo path, $rev is a repo revision
      my $root = $fs->revision_root($rev);
      my $kind = $root->check_path($path);
      if($kind == $SVN::Node::none) {
          SVN::Web::X->throw(error => '(path %1 does not exist in rev %2)',
                             vars  => [$path, $rev]);
      }
  }

In the en.po file for the localised text.

  msgid "(path %1 does not exist in rev %2)"
  msgstr "The path <tt>%1</tt> could not be found in the repository "
  "at revision %2.  This may be a typo in the path or the revision "
  "number.  SVN::Web should never normally generate a link like this. "
  "If you followed a link from SVN::Web (rather than from an e-mail,
  "or similar) please report this as a bug."

As you can see, the localised text can be much friendlier and more informative to the user than the error message.

COPYRIGHT

Copyright 2003-2004 by Chia-liang Kao "<clkao@clkao.org>".

Copyright 2005-2007 by Nik Clayton "<nik@FreeBSD.org>".

Copyright 2012 by Dean Hamstead "<dean@fragfest.com.au>".

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

See <http://www.perl.com/perl/misc/Artistic.html>

2022-06-14 perl v5.34.0