Commit | Line | Data |
3fea05b9 |
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; |