File Coverage

blib/lib/CPAN/Exception/yaml_not_installed.pm
Criterion Covered Total %
statement 9 13 69.2
branch n/a
condition n/a
subroutine 3 5 60.0
pod 0 2 0.0
total 12 20 60.0


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   95 use strict;
  13         31  
  13         464  
5 13     13   66 use overload '""' => "as_string";
  13         31  
  13         74  
6              
7 13         2112 use vars qw(
8             $VERSION
9 13     13   887 );
  13         29  
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;