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 12     12   41 use strict;
  12         14  
  12         311  
5 12     12   37 use overload '""' => "as_string";
  12         15  
  12         60  
6              
7 12         1353 use vars qw(
8             $VERSION
9 12     12   530 );
  12         12  
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;