line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
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
|
12
|
|
|
12
|
|
41
|
use strict; |
|
12
|
|
|
|
|
14
|
|
|
12
|
|
|
|
|
310
|
|
5
|
12
|
|
|
12
|
|
35
|
use overload '""' => "as_string"; |
|
12
|
|
|
|
|
11
|
|
|
12
|
|
|
|
|
60
|
|
6
|
|
|
|
|
|
|
|
7
|
12
|
|
|
|
|
1389
|
use vars qw( |
8
|
|
|
|
|
|
|
$VERSION |
9
|
12
|
|
|
12
|
|
523
|
); |
|
12
|
|
|
|
|
101
|
|
10
|
|
|
|
|
|
|
$VERSION = "5.5"; |
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
sub new { |
14
|
0
|
|
|
0
|
0
|
|
my($class,$module,$file,$during) = @_; |
15
|
0
|
|
|
|
|
|
bless { module => $module, file => $file, during => $during }, $class; |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
sub as_string { |
19
|
0
|
|
|
0
|
0
|
|
my($self) = shift; |
20
|
0
|
|
|
|
|
|
"'$self->{module}' not installed, cannot $self->{during} '$self->{file}'\n"; |
21
|
|
|
|
|
|
|
} |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
1; |