| 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 | 13 |  |  | 13 |  | 94 | use strict; | 
|  | 13 |  |  |  |  | 35 |  | 
|  | 13 |  |  |  |  | 433 |  | 
| 5 | 13 |  |  | 13 |  | 69 | use overload '""' => "as_string"; | 
|  | 13 |  |  |  |  | 25 |  | 
|  | 13 |  |  |  |  | 74 |  | 
| 6 |  |  |  |  |  |  |  | 
| 7 | 13 |  |  |  |  | 2019 | use vars qw( | 
| 8 |  |  |  |  |  |  | $VERSION | 
| 9 | 13 |  |  | 13 |  | 837 | ); | 
|  | 13 |  |  |  |  | 28 |  | 
| 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; |