File Coverage

blib/lib/WebService/Cmis/NotImplementedException.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition 0 2 0.0
subroutine 3 4 75.0
pod 1 1 100.0
total 13 19 68.4


line stmt bran cond sub pod time code
1             package WebService::Cmis::NotImplementedException;
2              
3             =head1 NAME
4              
5             WebService::Cmis::NotImplementedException
6              
7             =head1 DESCRIPTION
8              
9             This exception is raised when calling services not implemented
10             by the client library.
11              
12             Parent class: Error
13              
14             =cut
15              
16 1     1   3699 use strict;
  1         2  
  1         47  
17 1     1   6 use warnings;
  1         3  
  1         36  
18 1     1   6 use Error ();
  1         2  
  1         104  
19             our @ISA = qw(Error);
20              
21             =head1 METHODS
22              
23             =over 4
24              
25             =item new()
26              
27             =cut
28              
29             sub new {
30 0     0 1   my $class = shift;
31              
32 0           my ($package, $filename, $line, $subroutine) = caller(1);
33              
34 0   0       return $class->SUPER::new(-text=>($subroutine||'')." not implemented yet.\n");
35             }
36              
37             =back
38              
39             =head1 COPYRIGHT AND LICENSE
40              
41             Copyright 2012-2013 Michael Daum
42              
43             This module is free software; you can redistribute it and/or modify it under
44             the same terms as Perl itself. See F.
45              
46             =cut
47              
48             1;
49              
50              
51