NAME
    Exception::System - The exception class for system or library calls

SYNOPSIS
      # Loaded automatically if used as Exception::Base's argument
      use Exception::Base ':all',
        'Exception::System',
        'Exception::File' => { isa => 'Exception::System' };

      try eval {
        my $file = "/notfound";
        open FILE, $file
            or throw Exception::File message=>"Can not open file: $file",
                                     file=>$file;
      };
      if (catch Exception::System my $e) {
        if ($e->isa('Exception::File')) { warn "File error:".$e->{errstr}; }
        if ($e->with(errname=>'ENOENT')) { warn "Caught not found error"; }
      }

DESCRIPTION
    This class extends standard Exception::Base with handling system or
    library errors. The additional fields of the exception object are filled
    on throw and contain the error message and error codes.

AUTHOR
    Piotr Roszatycki <dexter@debian.org>

LICENSE
    Copyright (C) 2007, 2008 by Piotr Roszatycki <dexter@debian.org>.

    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