Context Navigation

Cabinet.pm

Timestamp:

04/07/08 17:56:25 (5 years ago)

Author:

yappo

Message:

lang/perl/WebService-Simple-Cabinet: wrote POD

Files:

r9069	r9076
80	80	=head1 NAME
81	81
82		WebService::Simple::Cabinet -
	82	WebService::Simple::Cabinet - WSDL/WADL-like interface make for WebService::Simple.
83	83
84	84	=head1 SYNOPSIS
85	85
86	86	use WebService::Simple::Cabinet;
	87	my $flickr = WebService::Simple::Cabinet->new(
	88	{
	89	global => {
	90	name => 'flickr',
	91	package => 'Flickr',
	92	base_url => 'http://api.flickr.com/services/rest/',
	93	params => {
	94	api_key => undef,
	95	},
	96	},
	97	method => [
	98	{
	99	name => 'echo',
	100	params => {
	101	method => 'flickr.test.echo',
	102	name => undef,
	103	},
	104	options => {},
	105	},
	106	],
	107	},
	108	api_key => 'your_api_key',
	109	);
	110	my $res_xml = $flickr->echo( name => 'echo data' );
	111	print $res_xml->{name};
87	112
	113
	114	unmaking syntax (TODO)
	115
	116	use WebService::Simple::Cabinet;
	117	my $flickr = WebService::Simple::Cabinet->new(
	118	'flickr',
	119	api_key => 'your_api_key',
	120	);
	121	my $res_xml = $flickr->echo( name => 'echo data' );
	122	print $res_xml->{name};
88	123
89	124	=head1 DESCRIPTION
90	125
91		WebService::Simple::Cabinet is
	126	WebService::Simple::Cabinet is make to easily Perl API interface some web services.
	127
	128	=head1 TODO
	129
	130	It is possible to use it easily by preparing the definition corresponding to some Web Service.
92	131
93	132	=head1 AUTHOR
…	…
96	135
97	136	=head1 SEE ALSO
	137
	138	L<WebService::Simple>
98	139
99	140	=head1 REPOSITORY