<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;"># -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
# vim: ts=4 sts=4 sw=4:
package CPAN::Exception::yaml_process_error;
use strict;
use overload '""' =&gt; "as_string";

use vars qw(
            $VERSION
);
$VERSION = "5.5";


sub new {
    my($class,$module,$file,$during,$error) = @_;
    # my $at = Carp::longmess(""); # XXX find something more beautiful
    bless { module =&gt; $module,
            file =&gt; $file,
            during =&gt; $during,
            error =&gt; $error,
            # at =&gt; $at,
          }, $class;
}

sub as_string {
    my($self) = shift;
    if ($self-&gt;{during}) {
        if ($self-&gt;{file}) {
            if ($self-&gt;{module}) {
                if ($self-&gt;{error}) {
                    return "Alert: While trying to '$self-&gt;{during}' YAML file\n".
                        " '$self-&gt;{file}'\n".
                            "with '$self-&gt;{module}' the following error was encountered:\n".
                                "  $self-&gt;{error}\n";
                } else {
                    return "Alert: While trying to '$self-&gt;{during}' YAML file\n".
                        " '$self-&gt;{file}'\n".
                            "with '$self-&gt;{module}' some unknown error was encountered\n";
                }
            } else {
                return "Alert: While trying to '$self-&gt;{during}' YAML file\n".
                    " '$self-&gt;{file}'\n".
                        "some unknown error was encountered\n";
            }
        } else {
            return "Alert: While trying to '$self-&gt;{during}' some YAML file\n".
                    "some unknown error was encountered\n";
        }
    } else {
        return "Alert: unknown error encountered\n";
    }
}

1;
</pre></body></html>