1use Test::More; 2use strict; 3BEGIN { plan tests => 4 }; 4 5use JSON::RPC::Server; 6 7my $server = JSON::RPC::Server->new; 8 9isa_ok($server, 'JSON::RPC::Server'); 10 11isa_ok($server->json, 'JSON'); 12 13my $test = JSON::RPC::Server::Test->new; 14 15isa_ok($test, 'JSON::RPC::Server'); 16 17isa_ok($test->json, 'DummyJSONCoder'); 18 19 20#### 21 22package JSON::RPC::Server::Test; 23 24use base qw(JSON::RPC::Server); 25 26 27sub create_json_coder { 28 bless {}, 'DummyJSONCoder'; 29} 30