———=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-2013 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;