blob: b70bd31fced3cbccc86a19a65675648fad8b0cfd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
|
package Net::HTTP::Spore;
# ABSTRACT: SPORE client
use Moose;
use IO::All;
use JSON;
use Carp;
use Try::Tiny;
use Net::HTTP::Spore::Core;
our $VERSION = 0.01;
sub new_from_spec {
my ($class, $spec_file, %args) = @_;
unless (-f $spec_file) {
Carp::confess ("$spec_file does not exists");
}
my ($content, $spec);
$content < io($spec_file);
try {
$spec = JSON::decode_json($content);
}
catch {
Carp::confess( "unable to parse JSON spec: " . $_ );
};
my ($spore_class, $spore_object);
# XXX should we let the possibility to override this super class, or add
# another superclasses?
$spore_class =
Class::MOP::Class->create_anon_class(
superclasses => ['Net::HTTP::Spore::Core']);
try {
my $api_base_url;
if ( $spec->{api_base_url} && !$args{api_base_url} ) {
$args{api_base_url} = $spec->{api_base_url};
}
elsif ( !$args{api_base_url} ) {
die "api_base_url is missing!";
}
$spore_object = $spore_class->new_object(%args);
$spore_object = _add_methods($spore_object, $spec->{methods});
}catch{
Carp::confess("unable to create new Net::HTTP::Spore object: ".$_);
};
return $spore_object;
}
sub _add_methods {
my ($class, $methods_spec) = @_;
foreach my $method_name (keys %$methods_spec) {
$class->meta->add_spore_method($method_name,
%{$methods_spec->{$method_name}});
}
$class;
}
1;
=head1 SYNOPSIS
my $client = Net::HTTP::Spore->new_from_spec('twitter.json');
$client->enable('Auth::OAuth');
$client->enable('Format::JSON');
my $timeline = $client->public_timeline(format => 'json');
my $tweets = $timeline->body;
foreach my $tweet (@$tweets) {
print $tweet->{user}->{screen_name}. " says ".$tweet->{text}."\n";
}
}
my $friends_timeline = $client->friends_timeline(format => 'json');
=head1 DESCRIPTION
=head2 METHODS
=over 4
=item new_from_spec($specification_file, %args
Create and return a L<Net::HTTP::Spore::Core> object, with methods
generated from the specification file.
=back
|