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;
5 use overload '""' => "as_string";
14 my($class,$module,$file,$during) = @_;
15 bless { module => $module, file => $file, during => $during }, $class;
20 "'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n";
23 package CPAN::Exception::yaml_process_error;
25 use overload '""' => "as_string";
34 my($class,$module,$file,$during,$error) = @_;
35 # my $at = Carp::longmess(""); # XXX find something more beautiful
36 bless { module => $module,
46 if ($self->{during}) {
48 if ($self->{module}) {
50 return "Alert: While trying to '$self->{during}' YAML file\n".
52 "with '$self->{module}' the following error was encountered:\n".
55 return "Alert: While trying to '$self->{during}' YAML file\n".
57 "with '$self->{module}' some unknown error was encountered\n";
60 return "Alert: While trying to '$self->{during}' YAML file\n".
62 "some unknown error was encountered\n";
65 return "Alert: While trying to '$self->{during}' some YAML file\n".
66 "some unknown error was encountered\n";
69 return "Alert: unknown error encountered\n";