Add Perl IDL support for method parameter type sequence<Dictionary>

Source/bindings/v8/V8Binding.h

Index: Source/bindings/v8/V8Binding.h
diff --git a/Source/bindings/v8/V8Binding.h b/Source/bindings/v8/V8Binding.h
index 98d34c21affe8e6b2b0bacb5606f4c3c03558e35..505abbcdf79fe1023f790956364cba4814a57eac 100644
--- a/Source/bindings/v8/V8Binding.h
+++ b/Source/bindings/v8/V8Binding.h
@@ -33,6 +33,7 @@
 #define V8Binding_h
 
 #include "bindings/v8/DOMWrapperWorld.h"
+#include "bindings/v8/Dictionary.h"
 #include "bindings/v8/ExceptionMessages.h"
 #include "bindings/v8/V8BindingMacros.h"
 #include "bindings/v8/V8PerIsolateData.h"
@@ -598,6 +599,20 @@ namespace WebCore {
         return v8Value;
     }
 
+    inline DictionarySequence toDictionarySequence(v8::Handle<v8::Value> value, int argumentIndex, v8::Isolate* isolate)
+    {
+        v8::Local<v8::Value> v8Value(v8::Local<v8::Value>::New(isolate, value));
+        uint32_t length = 0;
+        if (value->IsArray()) {
+            length = v8::Local<v8::Array>::Cast(v8Value)->Length();
+        } else if (toV8Sequence(value, length, isolate).IsEmpty()) {
+            throwTypeError(ExceptionMessages::notAnArrayTypeArgumentOrValue(argumentIndex), isolate);
+            return DictionarySequence();
+        }
+
+        return DictionarySequence(v8::Local<v8::Object>::Cast(v8Value), length, isolate);
+    }
+
     PassRefPtr<NodeFilter> toNodeFilter(v8::Handle<v8::Value>, v8::Isolate*);
 
     inline bool isUndefinedOrNull(v8::Handle<v8::Value> value)