1898184e3Ssthen#!perl 2898184e3Ssthen 3898184e3Ssthenuse strict; 4898184e3Ssthenuse warnings; 5898184e3Ssthen 6898184e3Ssthenuse Test::More tests => 2; 7898184e3Ssthenuse HTTP::Tiny; 8898184e3Ssthen 991f110e0Safresh1my @accessors = qw( 106fb12b70Safresh1 agent default_headers http_proxy https_proxy keep_alive local_address 116fb12b70Safresh1 max_redirect max_size proxy no_proxy timeout SSL_options verify_SSL cookie_jar 1291f110e0Safresh1); 13898184e3Ssthenmy @methods = qw( 14*eac174f2Safresh1 new get head put post patch delete post_form request mirror www_form_urlencode can_ssl 159f11ffb7Safresh1 connected 16898184e3Ssthen); 17898184e3Ssthen 18898184e3Ssthenmy %api; 19898184e3Ssthen@api{@accessors} = (1) x @accessors; 20898184e3Ssthen@api{@methods} = (1) x @methods; 21898184e3Ssthen 22898184e3Ssthencan_ok('HTTP::Tiny', @methods, @accessors); 23898184e3Ssthen 24898184e3Ssthenmy @extra = 25898184e3Ssthen grep {! $api{$_} } 26898184e3Ssthen grep { $_ !~ /\A_/ } 27898184e3Ssthen grep {; no strict 'refs'; *{"HTTP::Tiny::$_"}{CODE} } 28898184e3Ssthen sort keys %HTTP::Tiny::; 29898184e3Ssthen 30898184e3Ssthenok( ! scalar @extra, "No unexpected subroutines defined" ) 31898184e3Ssthen or diag "Found: @extra"; 32