package WebService::Cmis::NotImplementedException; =head1 NAME WebService::Cmis::NotImplementedException =head1 DESCRIPTION This exception is raised when calling services not implemented by the client library. Parent class: Error =cut use strict; use warnings; use Error (); our @ISA = qw(Error); =head1 METHODS =over 4 =item new() =cut sub new { my $class = shift; my ($package, $filename, $line, $subroutine) = caller(1); return $class->SUPER::new(-text=>($subroutine||'')." not implemented yet.\n"); } =back =head1 COPYRIGHT AND LICENSE Copyright 2012 Michael Daum This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. See F<http://dev.perl.org/licenses/artistic.html>. =cut 1;