24 lines
490 B
Perl
24 lines
490 B
Perl
# -*- Mode: cperl; coding: utf-8; cperl-indent-level: 4 -*-
|
|
# vim: ts=4 sts=4 sw=4:
|
|
package CPAN::Exception::yaml_not_installed;
|
|
use strict;
|
|
use overload '""' => "as_string";
|
|
|
|
use vars qw(
|
|
$VERSION
|
|
);
|
|
$VERSION = "5.5";
|
|
|
|
|
|
sub new {
|
|
my($class,$module,$file,$during) = @_;
|
|
bless { module => $module, file => $file, during => $during }, $class;
|
|
}
|
|
|
|
sub as_string {
|
|
my($self) = shift;
|
|
"'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n";
|
|
}
|
|
|
|
1;
|