1package JSON::RPC::Procedure; 2use strict; 3use Carp (); 4use Class::Accessor::Lite 5 new => 1, 6 rw => [ qw( 7 id 8 method 9 params 10 ) ] 11; 12 131; 14 15__END__ 16 17=head1 NAME 18 19JSON::RPC::Procedure - A JSON::RPC Procedure 20 21=head1 SYNOPSIS 22 23 use JSON::RPC::Procedure; 24 25 my $procedure = JSON::RPC::Procedure->new( 26 id => ..., 27 method => ... 28 params => ... 29 ); 30 31=head1 DESCRIPTION 32 33A container for JSON RPC procedure information 34 35=cut 36