[PATCH] Don't duplicate documentation

---
 lib/Net/LDAP/Control/SyncDone.pm      |   31 +------------------------------
 lib/Net/LDAP/Control/SyncState.pm     |   31 +------------------------------
 lib/Net/LDAP/Intermediate/SyncInfo.pm |   31 +------------------------------
 3 files changed, 3 insertions(+), 90 deletions(-)

diff --git a/lib/Net/LDAP/Control/SyncDone.pm b/lib/Net/LDAP/Control/SyncDone.pm
index e8bc2ae..39e81e7 100644
--- a/lib/Net/LDAP/Control/SyncDone.pm
+++ b/lib/Net/LDAP/Control/SyncDone.pm
@@ -67,36 +67,7 @@ Net::LDAP::Control::SyncDone - LDAPv3 Sync Done control object
 
 =head1 SYNOPSIS
 
- use Net::LDAP;
- use Net::LDAP::Control::SyncRequest;
- use Net::LDAP::Constant qw(
-  LDAP_SYNC_REFRESH_ONLY
-  LDAP_SYNC_REFRESH_AND_PERSIST
-  LDAP_SUCCESS );
-
- $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
-
- $req = Net::LDAP::Control::SyncRequest->new( mode => LDAP_SYNC_REFRESH_ONLY );
- my $mesg = $ldap->search(base=> 'dc=mydomain,dc='eg',
-                          scope    => 'sub',
-                          control  => [ $req ],
-                          callback => \&searchCallback, # call for each entry
-                          filter   => "(objectClass=*)",
-                          attrs    => [ '*']);
- sub searchCallback {
-   my $message = shift;
-   my $entry = shift;
-   my @controls = $message->control;
-
-   if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
-     print "Received Sync State Control\n";
-     print $entry->dn()."\n";
-     print 'State: '.$controls[0]->state."\n".', entryUUID: '.$controls[0]->entryUUID.', cookie: '.$controls[0]->cookie;
-   } elsif($controls[0]->isa('Net::LDAP::Control::SyncDone')) {
-     print "Received Sync Done Control\n";
-     print 'Cookie: '.$controls[0]->cookie.', refreshDeletes: '.$controls[0]->refreshDeletes;
-   }
- }
+See L<Net::LDAP::Control::SyncRequest>
 
 =head1 DESCRIPTION
 
diff --git a/lib/Net/LDAP/Control/SyncState.pm b/lib/Net/LDAP/Control/SyncState.pm
index 569553b..7f3094e 100644
--- a/lib/Net/LDAP/Control/SyncState.pm
+++ b/lib/Net/LDAP/Control/SyncState.pm
@@ -78,36 +78,7 @@ Net::LDAP::Control::SyncState - LDAPv3 Sync State control object
 
 =head1 SYNOPSIS
 
- use Net::LDAP;
- use Net::LDAP::Control::SyncRequest;
- use Net::LDAP::Constant qw(
-  LDAP_SYNC_REFRESH_ONLY
-  LDAP_SYNC_REFRESH_AND_PERSIST
-  LDAP_SUCCESS );
-
- $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
-
- $req = Net::LDAP::Control::SyncRequest->new( mode => LDAP_SYNC_REFRESH_ONLY );
- my $mesg = $ldap->search(base=> 'dc=mydomain,dc='eg',
-                          scope    => 'sub',
-                          control  => [ $req ],
-                          callback => \&searchCallback, # call for each entry
-                          filter   => "(objectClass=*)",
-                          attrs    => [ '*']);
- sub searchCallback {
-   my $message = shift;
-   my $entry = shift;
-   my @controls = $message->control;
-
-   if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
-     print "Received Sync State Control\n";
-     print $entry->dn()."\n";
-     print 'State: '.$controls[0]->state."\n".', entryUUID: '.$controls[0]->entryUUID.', cookie: '.$controls[0]->cookie;
-   } elsif($controls[0]->isa('Net::LDAP::Control::SyncDone')) {
-     print "Received Sync Done Control\n";
-     print 'Cookie: '.$controls[0]->cookie.', refreshDeletes: '.$controls[0]->refreshDeletes;
-   }
- }
+See L<Net::LDAP::Control::SyncRequest>
 
 =head1 DESCRIPTION
 
diff --git a/lib/Net/LDAP/Intermediate/SyncInfo.pm b/lib/Net/LDAP/Intermediate/SyncInfo.pm
index 38e6109..b086376 100644
--- a/lib/Net/LDAP/Intermediate/SyncInfo.pm
+++ b/lib/Net/LDAP/Intermediate/SyncInfo.pm
@@ -80,36 +80,7 @@ Net::LDAP::Intermediate::SyncInfo - LDAPv3 Sync Info Message object
 
 =head1 SYNOPSIS
 
- use Net::LDAP;
- use Net::LDAP::Control::SyncRequest;
- use Net::LDAP::Constant qw(
-  LDAP_SYNC_REFRESH_ONLY
-  LDAP_SYNC_REFRESH_AND_PERSIST
-  LDAP_SUCCESS );
-
- $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
-
- $req = Net::LDAP::Control::SyncRequest->new( mode => LDAP_SYNC_REFRESH_ONLY );
- my $mesg = $ldap->search(base=> 'dc=mydomain,dc='eg',
-                          scope    => 'sub',
-                          control  => [ $req ],
-                          callback => \&searchCallback, # call for each entry
-                          filter   => "(objectClass=*)",
-                          attrs    => [ '*']);
- sub searchCallback {
-   my $message = shift;
-   my $entry = shift;
-   my @controls = $message->control;
-
-   if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
-     print "Received Sync State Control\n";
-     print $entry->dn()."\n";
-     print 'State: '.$controls[0]->state."\n".', entryUUID: '.$controls[0]->entryUUID.', cookie: '.$controls[0]->cookie;
-   } elsif($controls[0]->isa('Net::LDAP::Control::SyncDone')) {
-     print "Received Sync Done Control\n";
-     print 'Cookie: '.$controls[0]->cookie.', refreshDeletes: '.$controls[0]->refreshDeletes;
-   }
- }
+See L<Net::LDAP::Control::SyncRequest>
 
 =head1 DESCRIPTION
 
-- 
1.6.3.3