From 5b2dd0663ad7330ceab4bd572bd564a90aa38a7a Mon Sep 17 00:00:00 2001
From: Cyrill Novgorodcev <cynovg@pause.org>
Date: Thu, 14 Nov 2019 17:54:07 +0300
Subject: [PATCH] #6 - remove deprecated methods

---
 lib/WG/API/NET.pm | 15 ---------------
 t/02-net.t        |  3 +--
 2 files changed, 1 insertion(+), 17 deletions(-)

diff --git a/lib/WG/API/NET.pm b/lib/WG/API/NET.pm
index 6859128..66114a4 100644
--- a/lib/WG/API/NET.pm
+++ b/lib/WG/API/NET.pm
@@ -102,21 +102,6 @@ sub account_info {
 
 =over 1
 
-=item B<clans_list>
-
-DEPRECATED: Method searches through clans and sorts them in a specified order.
-
-=cut
-
-sub clans_list {
-    cluck "DEPRECATED!";
-    return shift->_request(
-        'get', 'wgn/clans/list/',
-        [ 'language', 'fields', 'search', 'limit', 'page_no', 'game' ],
-        undef, @_
-    );
-}
-
 =item B<clans>
 
 Method searches through clans and sorts them in a specified order.
diff --git a/t/02-net.t b/t/02-net.t
index 40f924d..8da84e5 100644
--- a/t/02-net.t
+++ b/t/02-net.t
@@ -11,7 +11,7 @@ isa_ok( $net, 'WG::API::NET', 'valid instance' );
 
 can_ok( $net, qw/servers_info/ );
 can_ok( $net, qw/accounts_list account_info/ );
-can_ok( $net, qw/clans_list clans_info clans_membersinfo clans_glossary clans_messageboard/ );
+can_ok( $net, qw/clans_info clans_membersinfo clans_glossary clans_messageboard/ );
 
 SKIP: {
     skip 'developers only', 26 unless $ENV{'WGMODE'} && $ENV{'WGMODE'} eq 'dev';
@@ -47,7 +47,6 @@ SKIP: {
 
     subtest 'clans' => sub {
         my ( $clans, $clan_info );
-        is( $net->clans_list( game => 'wox', search => 'hellenes' ), undef, 'Search clan, using deprecated method' );
         is( $clans = $net->clans( game => 'wox', search => 'hellenes' ), undef, 'Search clan with invalid game' );
         is( $net->clans_info( clan_id => 'clan_id' ), undef, 'Get clan info with invalid clan_id' );