local-lib5/lib/perl5/CPAN/Exception/yaml_not_installed.pm

   1 # -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
   2 # vim: ts=4 sts=4 sw=4:
   3 package CPAN::Exception::yaml_not_installed;
   4 use strict;
   5 use overload '""' => "as_string";
   6
   7 use vars qw(
   8             $VERSION
   9 );
  10 $VERSION = "5.5";
  11
  12
  13 sub new {
  14     my($class,$module,$file,$during) = @_;
  15     bless { module => $module, file => $file, during => $during }, $class;
  16 }
  17
  18 sub as_string {
  19     my($self) = shift;
  20     "'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n";
  21 }
  22
  23 package CPAN::Exception::yaml_process_error;
  24 use strict;
  25 use overload '""' => "as_string";
  26
  27 use vars qw(
  28             $VERSION
  29 );
  30 $VERSION = "5.5";
  31
  32
  33 sub new {
  34     my($class,$module,$file,$during,$error) = @_;
  35     # my $at = Carp::longmess(""); # XXX find something more beautiful
  36     bless { module => $module,
  37             file => $file,
  38             during => $during,
  39             error => $error,
  40             # at => $at,
  41           }, $class;
  42 }
  43
  44 sub as_string {
  45     my($self) = shift;
  46     if ($self->{during}) {
  47         if ($self->{file}) {
  48             if ($self->{module}) {
  49                 if ($self->{error}) {
  50                     return "Alert: While trying to '$self->{during}' YAML file\n".
  51                         " '$self->{file}'\n".
  52                             "with '$self->{module}' the following error was encountered:\n".
  53                                 "  $self->{error}\n";
  54                 } else {
  55                     return "Alert: While trying to '$self->{during}' YAML file\n".
  56                         " '$self->{file}'\n".
  57                             "with '$self->{module}' some unknown error was encountered\n";
  58                 }
  59             } else {
  60                 return "Alert: While trying to '$self->{during}' YAML file\n".
  61                     " '$self->{file}'\n".
  62                         "some unknown error was encountered\n";
  63             }
  64         } else {
  65             return "Alert: While trying to '$self->{during}' some YAML file\n".
  66                     "some unknown error was encountered\n";
  67         }
  68     } else {
  69         return "Alert: unknown error encountered\n";
  70     }
  71 }
  72
  73 1;