Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP

Comparing changes

Choose two branches to see what's changed or to start a new pull request. If you need to, you can also compare across forks.

Open a pull request

Create a new pull request by comparing changes across two branches. If you need to, you can also compare across forks.
base fork: shelling/app-ldap
base: 0b340f041b
...
head fork: shelling/app-ldap
compare: fbac0f4dcc
Checking mergeability… Don't worry, you can still create the pull request.
  • 2 commits
  • 7 files changed
  • 0 commit comments
  • 1 contributor
Commits on Jan 11, 2013
@shelling Namespace::Dispatch 0.05 supports Moose::Role 29abb1b
@shelling Checking in changes prior to tagging of version 0.1.1.
Changelog diff is:

diff --git a/Changes b/Changes
index b7e5683..d239688 100644
--- a/Changes
+++ b/Changes
@@ -1,5 +1,8 @@
 Revision history for Perl extension App::LDAP

+0.1.1   Fri Jan 11 15:03:39 CST 2013
+        - use Namespace::Dispatch 0.05
+
 0.1.0   Fri Sep 21 18:00:48 2012
         - App::LDAP::Role as the base of Roles
         - refactor functions every commands used into App::LDAP::Role::Command
fbac0f4
View
3  Changes
@@ -1,5 +1,8 @@
Revision history for Perl extension App::LDAP
+0.1.1 Fri Jan 11 15:03:39 CST 2013
+ - use Namespace::Dispatch 0.05
+
0.1.0 Fri Sep 21 18:00:48 2012
- App::LDAP::Role as the base of Roles
- refactor functions every commands used into App::LDAP::Role::Command
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
2  lib/App/LDAP.pm
@@ -1,6 +1,6 @@
package App::LDAP;
-our $VERSION = '0.1.0';
+our $VERSION = '0.1.1';
use Modern::Perl;
View
12 lib/App/LDAP/Config.pm
@@ -47,3 +47,15 @@ sub config_from_line {
}
1;
+
+=pod
+
+=head1 NAME
+
+App::LDAP::Config - loader of config files
+
+=head1 DESCRIPTION
+
+This module would be called automatically in App::LDAP::run() to load the configurations.
+
+=cut
View
15 lib/App/LDAP/Role.pm
@@ -36,3 +36,18 @@ sub find_user {
no Moose::Role;
1;
+
+=pod
+
+=head1 NAME
+
+App::LDAP::Role - base of all roles in App::LDAP
+
+=head1 DESCRIPTION
+
+This role provides common helpers for almost all packages in App::LDAP, including ldap() for getting singleton of
+App::LDAP::Connection, config() for getting singleton of App::LDAP::Config and secret() for getting singleton of
+App::LDAP::Secret.
+
+=cut
+
View
22 lib/App/LDAP/Role/Command.pm
@@ -63,10 +63,6 @@ sub prepare {
}
use Namespace::Dispatch;
-use Sub::Delete;
-BEGIN {
- delete_sub($_) for qw(dispatch leaves has_leaf);
-}
=head2 dispatch()
@@ -74,36 +70,18 @@ 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.
View
13 lib/App/LDAP/Secret.pm
@@ -43,3 +43,16 @@ sub read_secret {
}
1;
+
+=pod
+
+=head1 NAME
+
+App::LDAP::Secret - loader of secret file
+
+=head1 DESCRIPTION
+
+this module would be called automatically in App::LDAP::run() to load the password for binding
+
+=cut
+

No commit comments for this range

Something went wrong with that request. Please try again.