Adding Vlan class to IBM SmartCloud

lib/fog/ibm/compute.rb

@@ -20,6 +20,8 @@ class IBM < Fog::Service
       collection :keys
       model :location
       collection :locations
+      model :vlan
+      collection :vlans
 
       request_path 'fog/ibm/requests/compute'
 

lib/fog/ibm/models/compute/vlan.rb

@@ -0,0 +1,15 @@
+require 'fog/core/model'
+
+module Fog
+  module Compute
+    class IBM
+      class Vlan < Fog::Model
+
+        identity :id
+        attribute :name
+        attribute :location
+
+      end
+    end
+  end
+end

lib/fog/ibm/models/compute/vlans.rb

@@ -0,0 +1,28 @@
+require 'fog/core/collection'
+require 'fog/ibm/models/compute/vlan'
+
+module Fog
+  module Compute
+    class IBM
+
+      class Vlans < Fog::Collection
+
+        model Fog::Compute::IBM::Vlan
+
+        def all
+          load(connection.list_vlans.body['vlan'])
+        end
+
+        def get(vlan_id)
+          begin
+            vlan = connection.list_vlans.body
+            new(vlan['vlan'].find{|vlan| vlan['id'] == vlan_id.to_s })
+          rescue Fog::Compute::IBM::NotFound
+            nil
+          end
+        end
+
+      end
+    end
+  end
+end