initial import

1 files changed, 68 insertions, 0 deletions

diff --git a/lib/Net/HTTP/Spore.pm b/lib/Net/HTTP/Spore.pm
new file mode 100644
index 0000000..88ce418
--- /dev/null
+++ b/lib/Net/HTTP/Spore.pm
@@ -0,0 +1,68 @@
+package Net::HTTP::Spore;
+
+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) = @_;
+
+    if (! -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 =
+      Class::MOP::Class->create_anon_class(
+          superclasses => ['Net::HTTP::Spore::Core']);
+
+    my $spore_object;
+    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;