Skip to content
Browse files

Namespace::Dispatch 0.05 supports Moose::Role

  • Loading branch information...
1 parent 0b340f0 commit 29abb1bcfcc3f08090c28aeef7af7756f9c6b075 @shelling committed Jan 11, 2013
Showing with 1 addition and 23 deletions.
  1. +1 −1 Makefile.PL
  2. +0 −22 lib/App/LDAP/Role/Command.pm
View
2 Makefile.PL
@@ -18,7 +18,7 @@ requires 'Term::ReadPassword';
requires 'Term::Prompt';
requires 'Authen::SASL';
requires 'Crypt::Password' => '0.28';
-requires 'Namespace::Dispatch' => '0.04';
+requires 'Namespace::Dispatch' => '0.05';
requires 'Sub::Delete';
requires 'IO::String';
requires 'Date::Calc';
View
22 lib/App/LDAP/Role/Command.pm
@@ -63,47 +63,25 @@ sub prepare {
}
use Namespace::Dispatch;
-use Sub::Delete;
-BEGIN {
- delete_sub($_) for qw(dispatch leaves has_leaf);
-}
=head2 dispatch()
the wrapper of Namespace::Dispatch::dispatch()
$class->dispatch(@consequences)
-=cut
-
-sub dispatch {
- Namespace::Dispatch::dispatch(@_);
-}
-
=head2 has_leaf()
the wrapper of Namespace::Dispatch::has_leaf()
$class->has_leaf('name');
-=cut
-
-sub has_leaf {
- Namespace::Dispatch::has_leaf(@_);
-}
-
=head2 leaves
the wrapper of Namespace::Dispatch::leaves()
$submodules = $class->leaves();
-=cut
-
-sub leaves {
- Namespace::Dispatch::leaves(@_);
-}
-
=head2 encrypt($plain)
given a plain text password, the helper returns an encrypted one.

0 comments on commit 29abb1b

Please sign in to comment.
Something went wrong with that request. Please try again.